جای دقیق مکان نما در TMemo

[Hamid_PaK]

چطوری میشه جای دقیق مکان نما در Memo یا RichEdit به نسبت Desktop رو پیدا کرد ؟؟؟
(یعنی این Point در Width, Height دسکتاپ تعیین بشه ) . . .

[vcldeveloper]

var
pt : TPoint;
begin
pt := ClientToScreen(Memo1.CaretPos);
end;

[Hamid_PaK]

علی آقا جواب نمی ده چون اگه خودتون یه PopUpMenu رو باهاش فعال کنید می بینید که X , Y به نسبت مکان نما فاصله زیادی داره ؟؟؟؟

[vcldeveloper]

یادم نبود...CaretPos شماره سطر و ستون در داخل Memo رو برمی گردونه، نه مختصات مکان نما.
برای تبدیل اون به مختصات صفحه نمایش برای نمایش PopupMenu می تونی از کدی مقل این استفاده کنی:


var
pt : TPoint;
X, Y : integer;
begin
X := Memo1.Left + (Memo1.CaretPos.X + 1) * Memo1.Font.Size;
Y := Memo1.Top + (Memo1.CaretPos.Y + 4) * ABS(Memo1.Font.Height);
pt := ClientToScreen(Point(X,Y));
PopUpMenu1.Popup(pt.X,pt.Y);

[Hamid_PaK]

علی آقا این تا حدی مشکل رو حل می کنه ولی نه توی تمامی فونتها و نه وقتی که تعداد زیادی خط نوشته شده باشه (اینتر بزنی بیاد پایین) ولی باز هم تشکر می کنم .

جای دقیق رو نیاز دارم . فکر میکنم مشه پیداشت کرد . . .

[vcldeveloper]

جای دقیق رو نیاز دارم . فکر میکنم مشه پیداشت کرد . . .


var
CaretPosition : TPoint;
begin
GetCaretPos(CaretPosition);

تابع GetCaretPos مکان اشاره گر در داخل یک کنترل رو بصورت مقادیر پیکسل بر می گردونه.
برای مثال در صورتی که قصد نمایش یک پنجره در زیر کرسر داشته باشید:


var
CaretPosition : TPoint;
begin
GetCaretPos(CaretPosition);
Inc(CaretPosition.X,20);
Inc(CaretPosition.Y,40);
end;

[Hamid_PaK]

آقا این درست بود . . .
جالبی این Function اینه که این مکان رو به نسبت اندازه فرم میده !
(برای PopUp کردن یک PopUpMenu نیاز به اضافه کردن Left , Top فرم به X , Y است).

با تشکر فراوان از شما آقای کشاورز .