monthcalendar nesnesinde tuşlarla hareket

[alixyas]

MONTCALENDAR
acaba onkeypress olayını kullanarak tarihler arasında geçiş yapabilirmiyiz.
yani sağ yön tuşuna bastığımda sonraki güne gidcek. aşağı yön tuşuna bastığımda bir sonraki haftaya gidecek. enter tuşuna bastığımda seçili tarihi istediğim editbox ın içine atacak.


YARDIMLARINIZ İÇİN SİZ DEĞERLİ İNSANLARA TEŞEKKÜR EDERİM.

[Uğur1982]

merhaba;

Formun KeyPreview'i True olacak;

Kod: Tümünü seç

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=word(#39) then
  MonthCalendar1.Date:=MonthCalendar1.Date+1
else if key=word(#40) then
  MonthCalendar1.Date:=MonthCalendar1.Date+7
else if key=word(#13) then
  Edit1.Text:=DateToStr(MonthCalendar1.Date);
end;

iyi günler...