mouse'u bir obje içerisine kilitleme

[true_false]

herkse merhablar sorum şu;
mouse'u bir obje içerisine (panel olabilir) kilitleme yani o objenin height ve width alanları arasında sınırlama yapmak

bunun için bir algoritma veya senaryo olabilir direk program istemiyorum çünkü bu iş için nerden başlıcam onu öğrenmem lazım nesnelerin hangi özelliklerini neyi kullancam (apımi dll'mi...!)
delphi bu iş için hangi nesneleri nesnelerin hangi özellikleribi kullancak onları öğrenmem lazım..


buttonların leftini belirterek formun width ve height alanları arsında rastgele dolatırmıştık galiba bu işin mouse la hiç bir alakası yok....

not sadece bir uğraş içindir hiçbir acelesi yoktur şimdiden vermiş olduğunuz güzel cevaplarınız için teşekkür ederim

[ahmet_sinav]

bu olay için ilgili nesnenin onmousemove() eventını kullanabilirsiniz.
Onmousemove eventında imlecin hangi koordinatlarda olduğunu bulabilirsiniz.buna göre de gerekli kontrolleri yapabilirsiniz.
misalen

Kod: Tümünü seç

procedure TForm_StokHareketleri.FormMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
if x>=10 then x:=10;//x koordinat kontrolü
if y>=50 then y:=50;//y koordinat kontrolü
if x<=5 then x:=5;//x koordinat kontrolü
if y<=10 then y:=10;//y koordinat kontrolü
label4.Caption:='x==>'+inttostr(x)+'y==>'+inttostr(y);//x ve y 'nin koordinatlarını gözlemliyoruz
Mouse.CursorPos:=Point(x,y);//istediğimiz yere mouse kursorünü getiriyoruz
end;

gibi.
Saygılar;

[true_false]

bi denicem teşk. ederim

[sadettinpolat]

ReleaseCapture olabilir tam olarak hatırlamıyorum ama böyle bir api vardı galiba. İmleci belirlediğiniz bir nesnenin sınırları içierisine hapsediyordu. Çizim programlarında fare çizim alanından çıkmasın diye kullanıldığı yerler vardı. Çizim alanı dışına çıkmaya çalıştığınızda imleç sanki görünmez bir bariyere çarpıp duruyordu

[gkimirti]

ClipCursor(r:PRect) winapi si bu iş icin.

Kod: Tümünü seç

procedure TFrmMain.Button1Click(Sender: TObject);
var
  r: TRect;
begin
   r.Top:=10;
   r.Left:=100;
   r.Bottom:=20;
   r.Right:=150;
   ClipCursor(@r);
end;

mouse tıklanınca sınırlardan kurtuluyor
yada ClipCursor(nil) kullanılıyor.

kolay gelsin