onclick des TPanel

[khh]

hallo zusammen,
ich habe meinen Labels die zur Laufzeit erstellt werden mit :

myCustomLabel2.OnClick:= @PanelClick;

das Klickereignis zugewiesen.

auf den Panels liegen zwei relativ grosse Labels.

beim Klick auf die Panels kann es passieren, dass ich die Labels "erwische" und das OnClick der Panels nicht ausgelöst wird.
die PanelCklick auch den Labels zuszuweisen bringt nix, da ich dort eine Eigenschaft des "Sender" auswerten muss.
Kann ich es irgendwie hinbekommen, dass der "LabelClick" quasi ausgeschaltet wird?


Ich danke euch
kh

[DeddyH]

Hä? Du weist Deinen Labels einen ClickHandler zu, den Panels auch, wenn also ein Label geklickt wird, wird dessen Handler ausgeführt, bei einem Panel eben dessen. Was ist denn nun das Problem?

[Darlo]

oder

Delphi-Quellcode:

labelx.HitTest := false;

Wenn es das in Deiner Version gibt.

[khh]

das Problem ist, dass ich im onclick eine Eigenschaft von TmyPanel per
datum:= TmyPanel(sender).kalenderdatum; auswerte.
Wenn nun aber TLabel der Sender ist, habe ich diesen wert nicht zur Verfügung.

Müsste ich also auch die Labels mit dieser Eigenschaft versehen, oder geht das irgendwie anders ?

[DeddyH]

Wenn man das Label erwischt, dürfte dessen Parent ja dann ein Panel sein. IMO könnte man auch da ansetzen.

[khh]

>> labelx.HitTest := false; gibt es bei lazarus nicht.

apropo: warum da was von delphi 5 steht weiss ich auch nicht :-(

[baumina]

Du kannst doch prüfen ob Sender ein Panel oder Label ist und für die Labels dann halt Sender.Parent nehmen.

[khh]

Zitat:

Zitat von DeddyH (Beitrag 1298134)

Wenn man das Label erwischt, dürfte dessen Parent ja dann ein Panel sein. IMO könnte man auch da ansetzen.

und wie wäre die syntax dazu?
sender.parent gibts ja nicht :-(

[baumina]

TLabel(Sender).Parent müsste es geben.

[khh]

Zitat:

Zitat von baumina (Beitrag 1298136)

Du kannst doch prüfen ob Sender ein Panel oder Label ist und für die Labels dann halt Sender.Parent nehmen.

ja, aber wie ist die syntax?
Sender.parent geht nicht

[DeddyH]

Delphi-Quellcode:

TLabel(Sender).Parent

[khh]

Zitat:

Zitat von baumina (Beitrag 1298139)

TLabel(Sender).Parent müsste es geben.

datum:= TMyPanel(sender).parent gibt es , aber
datum:= TMyPanel(sender).parent.kalenderdatum;
gibt es dann wiederum nicht :-(

[baumina]

Delphi-Quellcode:

if Sender.InheritsFrom(TLabel) then
begin
  Sender := TLabel(Sender).Parent;
end;
If Sender.InheritsFrom(TMyPanel) then
begin
// ...
end;

[DeddyH]

Überleg doch mal: Sender ist ein Label, dessen Parent (evtl.) ein Panel.

[Aviator]

Delphi-Quellcode:

TMyPanel(TLabel(Sender).Parent).Kalenderdatum

[DeddyH]

Oder in der ganz langen (vorsichtigen) Form:

Delphi-Quellcode:

var
  Label: TLabel;
  Panel: TMyPanel;
begin  
  if Sender is TLabel then
    begin
      Label := TLabel(Sender);
      if Assigned(Label.Parent) and (Label.Parent is TMyPanel) then
        begin    
          Panel := TMyPanel(Label.Parent);
          //Hier solltest Du auf das Kalenderdatum zugreifen können
        end;
    end;
end;

[khh]

Zitat:

Zitat von DeddyH (Beitrag 1298144)

Überleg doch mal: Sender ist ein Label, dessen Parent (evtl.) ein Panel.

ja eben dann müsste doch aber :
datum:= TLabel(sender).parent.kalenderdatum;
funktionieren, geht aber nicht

oder steh ich grad sooo aufm schlauch

[DeddyH]

Ja, aber Du musst doch noch einmal casten, Parent ist per se erst einmal ein TWinControl, Beispiele siehe oben.

[khh]

Zitat:

Zitat von DeddyH (Beitrag 1298149)

Ja, aber Du musst doch noch einmal casten, Parent ist per se erst einmal ein TWinControl, Beispiele siehe oben.

:oops:

ich danke euch

funktioniert ;-)