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