Panel Klick in aufgerufenem Formular abfragen

[Sir Rufo]

Zitat von Helmi:

Zitat von 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;

ist aber ned schön - dafür selten...

Jupp, mit deinem Vorschlag sieht das natürlich viel besser und schöner aus, nämlich so

Delphi-Quellcode:

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

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