listbox o sucedaneo

[[Lepe]]

Para usar el enter en el edit:

Código Delphi [-]
procedure Tform1.edit1keydown(....);
begin

  if key = vk_return then
   Listbox1.items.add(edit1.text);

end;

Como ves no hace falta crear un Stringlist, no sé, igual lo necesitas por otra causa no mencionada.

Para el clic, tienes 2 opciones, en el mousedown o el onclick del listbox, en ambos eventos, tienes que hacer algo similar a esto:

Código Delphi [-]
  if Listbox1.itemindex <> -1 then // mira la ayuda del itemindex
   label1.caption := listbox1.items[listbox1.itemindex];

Saludos