Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by daddy,
10. Mai 2007
SoGraDEs schrieb:
Das stimmt natürlich nicht wirklich. Was hindert Dich daran, den Code zu erweitern!?
type
TLabelPanel = class(TPanel)
private
...
FOnLabelClick: TNotifyEvent;
...
procedure MyLabelOnClick(Sender: TObject);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by daddy,
10. Mai 2007
Bisher sah Deine Prozdure so aus:
procedure TMyPanel.MyLabelOnClick;
begin
if Assigned(Self.OnClick) then
begin
self.OnClick(self) ;
end;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by daddy,
10. Mai 2007
Beachte bitte meinen Beitrag #6. Funktioniert es damit denn nicht? Du schreibst immer, dass Du "OnClick" ersetzen möchtest. Aber in Deinem Panel führst Du den beschriebenen Code doch direkt im "Click" aus.
Gruß Daddy
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by daddy,
10. Mai 2007
So wie ich das sehe, musst Du im "MyLabelOnClick" nicht "OnClick" aufrufen, sondern "Click" damit es funktioniert. Und zwar deshalb, weil Du das Ändern des Rahmens doch gar nicht im "OnClick" des Panels duchführst, sondern im von Dir überschriebenen "Click".
Gruß Daddy
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by daddy,
10. Mai 2007
Hallo SoGraDes (hübscher Name!),
kannst Du denn nicht das "OnClick" Deines Labels auf das "OnClick" des Panels setzen oder soll ein anderer Code beim "OnClick" des Labels ausgeführt werden?
Alternativ kannst Du doch auch dafür ein Property bereitstellen:
property L1_OnClick: TNotifyEvent read FL1OnClick write SetL1OnClick;
procedure SetL1OnClick(Value: TNotifyEvent);
begin