mouse hareketli mi? hareketsiz mi?

[tayc]

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.

[Lord_Ares]

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.

[tayc]

Mrh,
İnternetten biraz arastirma yaptim ama bu iki ozelligin bununla ilgili kullanimina rastlamadim

[Lord_Ares]

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

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;

[tayc]

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.

[Lord_Ares]

Sadece image nesnesinin üzerindeyken haraket ettiğinde diyorsan image nesnesinin eventslarındaki onmouse move olayına komut yazabilirsin.

Kod: Tümünü seç

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
ShowMessage('ok');
end;

Ama projenin genelinde istiyorsan bildiğim kadarıyla getcursorpos ile yapman daha doğru olur.

[tayc]

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.

[Lord_Ares]

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