listbox o sucedaneo

[anubis]

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

[[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

[anubis]

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

[anubis]

gracias ya lo arregle se me olvido poner un text.