Evento OnClick en runtime

[ecfisa]

Hola hgiacobone.

Empezado por hgiacobone

...Es una lástima que haya que "duplicar" los componentes en variables locales en el segundo procedimiento para poder trabajarlos, pero al menos, algo es algo...

Creo que Neftali escribió el código de ese modo para hacerlo mas claro y didáctico, pero es posible prescindir totalmente de las variables locales al método ClickMe:

Código Delphi [-]
procedure TForm1.ClickMe(Sender: TObject);
begin
  try
    MessageDlg(Format('Se ha pulsado el botón en el Formulario: %s'+
                      #13+#10+'En el Memo hay lo siguiente:'+#13+#10+
                      '----------------------------------------------'+
                      #13+#10+'%s'+#13+#10+'----------------------------------------------',
                      [TForm(TComponent(Sender).Owner).Name,
                       TMemo(TForm(TComponent(Sender).Owner).FindComponent('memo1')).Text]),
                       mtInformation, [mbOK], 0);

  except
    on E:Exception do MessageDlg(E.Message, mtWarning, [mbOk],0);
  end;
end;

Fijate que lo único que hice, fué reemplazar los nombres de variables por los moldeos y funciónes que estaban en el el ejemplo de Germán. En lo personal, me parece que usar las variables locales da un código mas eficiente y menos propenso a confusiones y errores.

Saludos