onclick des TPanel

[DeddyH]

TLabel(Sender).Parent

[khh]

Zitat von baumina:

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]

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 von DeddyH:

Ü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 von DeddyH:

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

ich danke euch

funktioniert