listbox o sucedaneo
 

A ver no creo que sea tan dificil usar un listbox, pero me da problemas y estoy mirando en la ayuda de delphi pero no me soluciona nada.

Código Delphi [-]
 lista := TStringList.Create;
lista.add(Anadirnom.text);
listbox1.items.AddStrings(lista);

tengo un boton, un tedit y un listbox. Si relleno el tedit y pulso el boton (porque con enter no vale ni poniendo onexit), pero luego tengo el problema de seleccionar en la lista y pasar el seleccinado por ejemplo a un label. Esto hay forma de hacerlo? porque estoy mirando pero veo.

gracias por vuestra paciencia

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

Gracias, asi si es mas facil.
Como se puede convertir un tmaskedit en entero? un tedit se puede pasar a entero con strtoint pero con el tmaskedit no me deja, estoy mirando pero no hay forma de convertir.


gracias de nuevo

gracias ya lo arregle se me olvido poner un text. ;)