hint dla TCalendar

0

prÓÓbUUję napisać program - kalendarz w którym po najechaniu na dowolny dzień np. 01.01 pojawiła by się podpowiedź ( hint), w tym wypadku "Nowy rok". Proszę o pomoc.

0

Hmm tak szybko zobaczylem ten TCalendar i jest jakis dziwny :P

procedure TForm1.Calendar1Click(Sender: TObject);
begin
  Caption := DateToStr(Calendar1.CalendarDate);

  if Calendar1.CalendarDate = StrToDate('2007-07-01') then
    Calendar1.Hint := 'jakiś hint';
end;

:| jakie daty pokazuje o co chodzi ?

procedure TForm1.MonthCalendar1Click(Sender: TObject);
begin
  Caption := DateToStr(MonthCalendar1.Date);


  MonthCalendar1.ShowHint := True;

  if MonthCalendar1.Date = StrToDate('2007-07-01') then
    MonthCalendar1.Hint := 'jakiś hint';
end;

Tutaj jest OK ale to inny komponent

1 użytkowników online, w tym zalogowanych: 0, gości: 1