TForm1.Button1Click run TForm1.Label1Click procedure

[xmldom]

Hi, I need run TForm1.Label1Click procedure after cuser click on Button1. How do I do that?

Code: [Select]

...
procedure TForm1.Button1Click(Sender: TObject);
begin
  TForm1.Label1Click();
end;   

procedure TForm1.Label1Click(Sender: TObject);
begin
  Label1.Caption:='test';
end;
...

Compile:
main.pas(118,28) Error: Wrong number of parameters specified for call to "Label1Click"
main.pas(40,15) Hint: Found declaration: TForm1.Label1Click(TObject);
main.pas(138) Fatal: There were 1 errors compiling module, stopping


[Blaazen]

Code: [Select]

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1Click(Sender);
end;


[xmldom]

Thanks. Now it's OK :-)

How it works?

[Blaazen]

How it works?

Simply, you need to call that method with right parameters, as compiler told you:

Code: [Select]

main.pas(118,28) Error: Wrong number of parameters specified for call to "Label1Click"
main.pas(40,15) Hint: Found declaration: TForm1.Label1Click(TObject);
In this case, Sender is Button1.