تبليغاتX
راسک - مختصات موس در دسکتاپ
راسک
راسک
مختصات موس در دسکتاپ

چهارتا Label و یه Timer بذارید روی فرم حالا Caption Label1 رو بذارید X که مختصات عرض باشد و همینطور Label2 رو بذارید Y که مختصات طول باشد .


حالا به ترتیب Label3 , 4 رو روبروی Label های 1و2 بذارید

حالا برای تایمر اینو می نویسیم.

var M : TMouse;
begin
Label3.Caption := IntToStr(M.CursorPos.x);
Label4.Caption := IntToStr(M.CursorPos.y);
end;
+ نوشته شده در پنجشنبه ششم مهر 1385ساعت 16:3 توسط علی دانشمند |