Delphi - texto siempre seleccionado en un edit

 
Vista:

texto siempre seleccionado en un edit

Publicado por Ac1d0k (13 intervenciones) el 13/04/2007 18:09:52
quisiera saver si es posible ke todo el texto que se meta en un edit este seleccionado
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 65
Oro
Ha mantenido su posición en Delphi (en relación al último mes)
Gráfica de Delphi

RE:texto siempre seleccionado en un edit

Publicado por E.T. (1244 intervenciones) el 13/04/2007 18:27:38
Es posible, solo haz lo siguiente:

Evento OnChange de edit

procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit1.SelStart:=0;
Edit1.SelLength:=length(Edit1.Text);
end;

Evento OnkeyPress de edit

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Edit1.SelStart:=length(edit1.Text);
end;

Evento OnClick de edit

procedure TForm1.Edit1Click(Sender: TObject);
begin
Edit1.SelStart:=0;
Edit1.SelLength:=length(Edit1.Text);
Edit1.SelectAll;
end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:texto siempre seleccionado en un edit

Publicado por Ac1d0k (13 intervenciones) el 13/04/2007 23:48:00
oye como podria unir este codigo al de guardar cada palabra seleccionada y presionando un + para agregarla al arreglo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:texto siempre seleccionado en un edit

Publicado por nombre (106 intervenciones) el 14/04/2007 14:36:54
Prueba también en el evento OnKeyPress pasando el foco al edit.

Edit1.SetFocus;

Si lo que quieres es guardar el texto de un edit pulsando la tecla + no creo que te haga falta seleccionar ese texto, yo creo que será suficiente con poner en el evento OnKeyPress del edit que cuando se pulse la tecla + se guarde su contenido (eliminando el + que habrá sido la última pulsación)

no lo he probado pero debe ser algo así como

if Key = '+' then
variabledondeseguarda := trim( copy ( Edit1.Text, 1, Length(Edit1.Text) - 1 ) );
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 65
Oro
Ha mantenido su posición en Delphi (en relación al último mes)
Gráfica de Delphi

RE:texto siempre seleccionado en un edit

Publicado por E.T. (1244 intervenciones) el 14/04/2007 17:06:44
Bueno prodrias hacer lo siguiente

procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit1.SelStart:=0;
Edit1.SelLength:=length(Edit1.Text);
end;

Evento OnkeyPress de edit

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key in ['+','-'] then
key:=#0;
Edit1.SelStart:=length(edit1.Text);
end;

Evento OnClick de edit

procedure TForm1.Edit1Click(Sender: TObject);
begin
Edit1.SelStart:=0;
Edit1.SelLength:=length(Edit1.Text);
Edit1.SelectAll;
end;

Evento OnKeyDown de edit

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=VK_ADD then begin
SetLength(palabras,length(palabras)+1);
palabras[Length(palabras)-1]:=Edit1.SelText;
end else if key=VK_SUBTRACT then
SetLength(palabras,0);
end;

De esta forma lo que vayas escribiendo se irá seleccionando y al presionar la tecla "+" lo seleccionado del edit se agregará al arreglo, cada ves que se presione la tecla "+" se guardará en una posición diferente del arreglo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar