Einzelnen Beitrag anzeigen

Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.336 Beiträge
 
Delphi XE2 Professional
 
#4

AW: Panel Klick in aufgerufenem Formular abfragen

  Alt 26. Jul 2015, 09:43
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
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
  Mit Zitat antworten Zitat