Cita:
Empezado por ecfisa
Código Delphi [-]
if TButton(Sender).Name = 'Button1' then ListBox1.Items.AddStrings(lista1);
if TButton(Sender).Name = 'Button2' then ListBox2.Items.AddStrings(lista2);
|
Personalmente, me gustaría más de la siguiente manera:
Código Delphi
[-]
if Sender = Button1 then ListBox1.Items.AddStrings(lista1)
else
if Sender = Button2 then ListBox2.Items.AddStrings(lista2);
Pero creo que ya son reparos de la vejez.
-