Panel Klick in aufgerufenem Formular abfragen

[Sir Rufo]

Delphi-Quellcode:

procedure TCallingForm.FormCreate( Sender: TObject );
begin
  FSubForm := TSubForm.Create( Self );
  FSubForm.Panel1.OnClick := SubFormPanel1Click;
end;

procedure TCallingForm.SubFormPanel1Click( Sender: TObject );
begin
  // Do whatever
end;