Panel Klick in aufgerufenem Formular abfragen

[khh]

Hallo zusammen, wie kann ich den Klick auf ein Panel im aufgerufenen Form abfragen.
Modalresult hat das Panel ja nicht

[Helmi]

Hallo,

gibt´s in Lazarus kein OnClick-Event bei dem Panel?
In Delphi gibt es das (jedenfalls XE2)

[khh]

ja, das gibts schon, aber wie bekomme ich den in die aufrufende proc ausserhalb der form?
So nach der art Form1.panel1.click ?

[Helmi]

direkt gar nicht

verpass der Form eine Event dafür:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure Panel1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    FOnPanelClick: TNotifyEvent;
  public
    { Public-Deklarationen }
  property
    OnPanelClick: TNotifyEvent  read FOnPanelClick write FOnPanelClick;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Panel1Click(Sender: TObject);
begin
  If Assigned(OnPanelClick) then
    OnPanelClick(Sender);
end;

Und in der übergeordneten Form reagierst du auf das Event OnPanelClick der Form

[Sir Rufo]

Irgendwie kann ich dir nicht folgen, was du eigentlich willst.

Möchtest du, dass bei einem Klick auf das Panel der ModalResult der Form geändert wird?
(Was dann zur Folge hat, dass die modal aufgerufene Form geschlossen wird)

[khh]

nein, ich möchte im aufrufenden Form auf den PanelKlick im aufgerufenen Form reagieren.
Hab das bis jetzt so gelöst, dass ich im aufgerufenen Form eine Variable setze und im aufrufenden Form abfrage, um darauf zu reagieren.
Meine Frage nun, gibts da einfachere, bessere Lösungen ?

[Helmi]

Zitat von khh:

nein, ich möchte im aufrufenden Form auf den PanelKlick im aufgerufenen Form reagieren.
Hab das bis jetzt so gelöst, dass ich im aufgerufenen Form eine Variable setze und im aufrufenden Form abfrage, um darauf zu reagieren.
Meine Frage nun, gibts da einfachere, bessere Lösungen ?

Was spricht gegen meine Lösung?

[khh]

Zitat von Helmi:

Zitat von khh:

nein, ich möchte im aufrufenden Form auf den PanelKlick im aufgerufenen Form reagieren.
Hab das bis jetzt so gelöst, dass ich im aufgerufenen Form eine Variable setze und im aufrufenden Form abfrage, um darauf zu reagieren.
Meine Frage nun, gibts da einfachere, bessere Lösungen ?

Was spricht gegen meine Lösung?

sorry, die hab ich noch gar nicht gesehen

[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;

[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...