Ver Mensaje Individual
  #4  
Antiguo 09-08-2017
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 9.824
Reputación: 27
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Para reconocer de que botón procede la llamada podes evaluar el nombre del argumento enviado.

A modo de ejemplo:
Código Delphi [-]
type
  TForm1 = class(TForm)
  ...
  private
    procedure Listas(Sender: TObject);
  ...

implementation

procedure TForm1.Listas(Sender: TObject);
var
  lista1 : TStringList;
  lista2 : TstringList;
begin
  if not (Sender is TButton) then Exit; // si no es un TButton -> Salir

  lista1 := TStringList.Create;
  lista2 := TStringList.Create;
  try
    lista1.Add('1');
    lista1.Add('2');
    lista1.Add('3');

    lista2.Add('4');
    lista2.Add('5');
    lista2.Add('6');

    if TButton(Sender).Name = 'Button1' then   // ¿ Es Button1 ?
      ListBox1.Items.AddStrings(lista1);

    if TButton(Sender).Name = 'Button2' then  // ¿ Es Button2 ?
      ListBox2.Items.AddStrings(lista2);

  finally
    lista1.Free;
    lista2.Free;
  end;
end;

...
Algo muy importante: Fijate que al finalizar el procedimiento se libera la memoria ocupada por la creación de las dos listas.

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita