گرفتن سطر و ستون از Memo

[Mahdi Yar]

تابعی که موقعیت مکان نما را در memo بدهد .با تشکر

[Mahdi Yar]

مثل status bar notepad

[m-khorsandi]

اول، برای تاپکیت عنوان مناسب انتخاب کن، بعد
از توابع زیر استفاده کن:


function GetColumn(const MemoName: TMemo): integer;
begin
Result := MemoName.SelStart + MemoName.SelLength - MemoName.Perform(EM_LINEINDEX, -1, 0);
end;




function GetRow(const MemoName: TMemo): integer;
begin
Result := LongRec(MemoName.Perform(EM_LINEFROMCHAR, -1, 0)).Lo;
end;

[vcldeveloper]

با اجازه...
از متد CaretPos خود Memo استفاده کنید.

[m-khorsandi]

از متد CaretPos خود Memo استفاده کنید.

دقیقاً؛


Caption := Format('%d: %d', [Memo1.CaretPos.Y, Memo1.CaretPos.X]);