Mostrar en un TEdit el elemento seleccionado en un TListbox

[federicorl]

Necesito que cundo alguien se desplace en un Tlistbox el texto de este se vea en un Tedit alguien sabe como hacerlo?

se me hace que es un apregunta tonta pero ando un poco bloqueado

[[egostar]]

Empezado por federicorl

Necesito que cundo alguien se desplace en un Tlistbox el texto de este se vea en un Tedit alguien sabe como hacerlo?

se me hace que es un apregunta tonta pero ando un poco bloqueado

Hola, te sugiero que titules los hilos de acuerdo a tu pregunta, este que has puesto no nos dice nada y no sirve para futuras consultas de otros compañeros que tuviesen la misma duda.

Código Delphi [-]
procedure TForm1.ListBox1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit1.Text := ListBox1.Items[ListBox1.ItemIndex];
end;

Salud OS

[dec]

Hola,

Empezado por egostar

Hola, te sugiero que titules los hilos de acuerdo a tu pregunta, este que has puesto no nos dice nada y no sirve para futuras consultas de otros compañeros que tuviesen la misma duda.

Está bien que lo menciones. Ya he editado el título.

Respecto del código que has puesto como ejemplo, igual podría añadirse la comprobación de que, efectivamente, hay algún elemento seleccionado en la lista:

Código Delphi [-]
procedure TForm1.ListBox1KeyUp(Sender: TObject; 
 var Key: Word; Shift: TShiftState);
begin
  if ListBox1.ItemIndex <> -1 then begin
    Edit1.Text := ListBox1.Items[ListBox1.ItemIndex];
  end;
end;

¿Eh?

[[egostar]]

Empezado por dec

¿Eh?

Anda macho, y que le dejas de tarea a nuestro compañero federicorl

Salud OS

Buen aporte

[federicorl]

es cierto el titulo anterio no decia nada, les agradezco el comentario.

por otro lado la respuesta que me enviaste me soluciona el problema me vi muy novato pero ya que puedo hacer.

gracias muchachos por la siempre pronta ayuda les debo una