Hola hgiacobone.
Cita:
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