DBMemo Cursorposition

[Bodo Reinecke]

Hallo Leute

Wie ermittele ich die aktuelle zeile in einem DBMemo Feld, wo sich der

Cursor befindet.?

Danke Bodo

[Andreas Kosch]

Hallo,

das folgende Beispiel demonstriert den Weg bei einem TMemo, indem das zugrundeliegende Win32-Control über eine Botschaft befragt wird:
<pre>
procedure TForm1.Timer1Timer(Sender: TObject);
var
iRow : Integer;
begin
with Memo1 do
iRow := Perform(EM_LINEFROMCHAR, SelStart, 0);
Caption := IntToStr(iRow) + '. Zeile';
end;
</pre&gt