أبحث عن طريقة لتحديد النص الذي الظاهر في TMemo

[kachwahed]

للفائدة:
وجدت دالة تعيد عدد الأسطر الظاهرة.

PHP كود :

function GetMaxVisible(Re: TRichEdit): integer;
var
    richDC: HDC;        // temporary device context
    tm: TTextMetric;
begin
  with Re do begin
    // get the maximum number of visible lines
        richDC := GetDC(Handle);
        SelectObject(richDC, Font.Handle);
        GetTextMetrics(richDC, tm);
        ReleaseDC(Handle, richDC);
        result := ClientHeight div tm.tmHeight;
    end;
end; 


والدالة

كود :

Perform(EM_GETFIRSTVISIBLELINE, 0, 0)

تعيد قيمة موضع السطر الأول.