Monthcalendar da çift tıklama sorunu

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
comfort
Üye
Mesajlar: 214
Kayıt: 28 Ara 2004 06:37
Konum: İzmir
İletişim:

Monthcalendar da çift tıklama sorunu

Mesaj gönderen comfort »

Herkese iyi çalışmalar.
Monthcalendar nesnesinde tarih seçmek için
ondblclick olayına şu kodu yazdım

Kod: Tümünü seç

maskedit1.text:=datetostr(monthcalendar1.date);
Bu kod çalşıyor ama işin komik yanı bir sonraki aya geçmek için yukardaki navigasyon butonlarına basınca bu kod gene çalışıyor. yani monthcalendar nesnesinin neresinde çift tıklarsam tıklayım ondblclick olayı çalışıyor :kup: Bilmem anlatabildim mi ?Şimdiden teşekkür ederim.
Kullanıcı avatarı
ALUCARD
Üye
Mesajlar: 1270
Kayıt: 27 Eyl 2003 10:12
Konum: Samsun
İletişim:

Mesaj gönderen ALUCARD »

bence orda maskedit kullanıcana

dbdatetimepicker kullan daha mantıklı ve daha kolay

bu componentin likinide veriyorum ordan indirebiilirsin


http://www.aseyazilim.com/indir.asp?downid=106
بِسْمِ اللهِ الرَّحْمنِ الرَّحِيمِ
Forumun 365. Üyesi
Hiç Bir Şey İnsan Kadar Yükselemez ve Alçalamaz

Erkan ÇAĞLAR
Kullanıcı avatarı
NewMember
Üye
Mesajlar: 990
Kayıt: 29 Haz 2005 06:57
Konum: Bursa

Mesaj gönderen NewMember »

Hocam şöyle yapapbilirsin.Monthcalendarın tabstop özelliğini true yapıp yukarıda yazdığın kodu da dblclick yordamına değilde onexit olayına yazarsan eğer sen month kalendarda en son hangi tarihi seçili olarak bırakırsan maskedite o tarih geliyo.Dolayısıyla o yukarıdan yılları değiştirdiğinde maskeditin tarihi değişmiyor.Umarım bu işne yarar.kolay gelsin.
Kullanıcı avatarı
comfort
Üye
Mesajlar: 214
Kayıt: 28 Ara 2004 06:37
Konum: İzmir
İletişim:

Mesaj gönderen comfort »

Hocam aslında sizin dediğiniz oldu ama pek şık olmadı işin aslı. Çift tıklama ile olsa iyi olcak. Olmazsa böyle kalcak napalım :wink:
Kullanıcı avatarı
comfort
Üye
Mesajlar: 214
Kayıt: 28 Ara 2004 06:37
Konum: İzmir
İletişim:

Mesaj gönderen comfort »

İşte Çözüm

Kod: Tümünü seç

if mouse.CursorPos.y<MonthCalendar1.ClientOrigin.y+45 then exit;
Ne kadar basitmiş :D
Cevapla