mouse hareketli mi? hareketsiz mi?
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
mouse hareketli mi? hareketsiz mi?
mrh arkadaşlar,
form üzerinde yerleştirdiğimiz imagenin üstündeki imlecin hareket halinde mi yoksa duran mı olduğunu gösteren kodu nasıl yazabiliriz.
form üzerinde yerleştirdiğimiz imagenin üstündeki imlecin hareket halinde mi yoksa duran mı olduğunu gösteren kodu nasıl yazabiliriz.
Re: mouse hareketli mi? hareketsiz mi?
Mousun position özelliğini okuyarak haraket halinde olup olmadığını anlayabilirsin. Aslında bir çok yöntem var örneğin GetCursorPos, MouseMove gibi.. Bu yöntemlerden istediğini kullanabilirsin.
Re: mouse hareketli mi? hareketsiz mi?
Mrh,
İnternetten biraz arastirma yaptim ama bu iki ozelligin bununla ilgili kullanimina rastlamadim
İnternetten biraz arastirma yaptim ama bu iki ozelligin bununla ilgili kullanimina rastlamadim
Re: mouse hareketli mi? hareketsiz mi?
Yukarıda dediğim gibi bu iş için bir çok yol var. Tam ne yapacağınızı bilmediğim için aşağıdaki seçeneklerden biri işinizi görebilir.
1) Formun veya image nesnesinin onmousemove olayına yazabilirsiniz.
2) Getcursorpos ile o anki mouse pozisyonunu belli süreler arasında alır karşılaştırarakta yapabilirsiniz. Getcursorpos diye forumda arattığımda birden çok örnek çıktı. Aşağıdaki linkte mousenin o anki posizsonu alıyor.
Örneğin viewtopic.php?f=2&t=37392&p=201184&hili ... os#p201184
1) Formun veya image nesnesinin onmousemove olayına yazabilirsiniz.
2) Getcursorpos ile o anki mouse pozisyonunu belli süreler arasında alır karşılaştırarakta yapabilirsiniz. Getcursorpos diye forumda arattığımda birden çok örnek çıktı. Aşağıdaki linkte mousenin o anki posizsonu alıyor.
Örneğin viewtopic.php?f=2&t=37392&p=201184&hili ... os#p201184
Kod: Tümünü seç
procedure TForm3.Timer1Timer(Sender: TObject);
var
MausPos: TPoint;
begin
GetCursorPos(MausPos);
Caption :='X Koord : ' +IntToStr(MausPos.x) +'Y koord :'+ IntToStr(MausPos.y);
end;
Re: mouse hareketli mi? hareketsiz mi?
mrh,
aslında yapmak istediğim image nesnesinin üzerindeki imlecin hareket olayını tespit etmek, yani hareket ettiği zaman n değerine 1 atayacak durduğu zaman n değerine 0 atayacak.
aslında yapmak istediğim image nesnesinin üzerindeki imlecin hareket olayını tespit etmek, yani hareket ettiği zaman n değerine 1 atayacak durduğu zaman n değerine 0 atayacak.
Re: mouse hareketli mi? hareketsiz mi?
Sadece image nesnesinin üzerindeyken haraket ettiğinde diyorsan image nesnesinin eventslarındaki onmouse move olayına komut yazabilirsin.
Ama projenin genelinde istiyorsan bildiğim kadarıyla getcursorpos ile yapman daha doğru olur.
Kod: Tümünü seç
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
ShowMessage('ok');
end;
Re: mouse hareketli mi? hareketsiz mi?
Dogru sadece image icin istiyorum, image uzerinde hareket edildigi zaman n degerine 1 ataniyor buraya kadar tamam ama mouse uzerinde hareket etmedigi zaman ise n degerine 0 degerinin atanmasi gerek sorun burda ortaya cikiyor.
Re: mouse hareketli mi? hareketsiz mi?
ozaman bir timerla belli zaman aralıklarında getcursorpos ile o anki pozisyonu al ve karşılaştır eğer değer aynı ise n değerine 0 ata..