Assim como existe o 'this' no JavaScript, qual é o equivalente no Delphi? E como eu usaria? Quero substituir o 'UniButtonX' de cada procedimento por um 'this' equivalente ao botão clicado.
procedure TUniForm1.UniButton1Click(Sender: TObject);
var numero : string;
begin
numero := UniEdit1.Text;
UniEdit1.Text := numero + UniButton1.Caption;
end;
procedure TUniForm1.UniButton2Click(Sender: TObject);
var numero : string;
begin
numero := UniEdit1.Text;
UniEdit1.Text := numero + UniButton2.Caption;
end;
this
do Delphi se chamaself
. Mas no caso em questão ele se refere ao form, já que todos os métodos são do TUniForm1. Como você mesmo viu, o botão vem pelo parâmetro Sender.