onclick des TPanel

[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;