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! <<