Panel.click simulieren

[Andreas L.]

Kannst du damit was anfangen?

Delphi-Quellcode:

type
  Form1 = class(TForm)
  ...
    procedure Panel1Click(Sender: TObject);
    procedure DoSomething;
  ...
  end;

...
...

procedure TForm1.Panel1Click(Sender: TObject);
begin
  ShowMessage('Test');
end;

procedure TForm1.DoSomething;
begin
  //code...
  Panel1Click(Self); //Panel OnCLlick-Event ausführen
end;