مختصات موس در دسکتاپ
چهارتا 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ساعت توسط حسین |
