آموزش : بدست اوردن مختصات ماوس در دلفی

تو برنامه گرافیکی این موضوع را بیش ازپیش دیدید برای همین برای بدست اوردنش :
یه label رو صفحه میزاریم بعد شروع به کد نویسی میکنیم
روی رخداد Onmousemove صفحه دو بار کلیلک کرده کدهای زیر را بنویسید

کد:

---

Label1.Caption :=inttostr(X)+' , '+inttostr(Y);

---

------------------------------------------
یه راه دیگه اش اینه

کد:

---

var mpos:TMouse;
begin
Label1.Caption:=IntToStr(mpos.CursorPos.X)+' , '+IntToStr(mpos.CursorPos.Y)

---

دو روش مذکور هر کدوم در شرایط مناسب قابل استفاده است
شاید این نکته ها ابتدایی به نظرمیرسه ولی شروعی برای قرار دادن آموزشهای دیگر برنامه نویسان میباشد