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;

[Helmi]

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

auch wieder wahr

aber ich bin der Meinung, dass ein Event einer Komponente in der Klasse, die die Komponente erzeugt, bleiben soll.
Also das OnClick-Event in der Form in der es sitzt