این تابع همانطور که از نامش پیداست برای بدست آوردن مختصات مکان نما استفاده می گردد.

این تابع در تمامی کنترل هایی که می توان در آن متن نوشت مثل Edit, Memo, RichEdit و ... کاربرد دارد.

شکل کلی این تابع به صورت زیر است:

function GetCaretPos: TPoint; virtual;

و نحوه ی استفاده از آن به شکل زیر:

var
  CaretPos: TPoint;
begin
  GetCaretPos(CaretPos);
  Self.Caption := Format('x:%d , y:%d', [CaretPos.X, CaretPos.Y] );
end;

در کد بالا مختصات مکان نما(کرسر موس) (در یک کنترل متنی مثل Edit, Memo , ...)، در عنوان فرم نمایش داده می شود.

نظرات شما عزیزان:

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: