gleich zu meinem problem:
ich hab hier zwei funktionen, mit der ich die Cursorposition in eimen Memo ermitteln kann.
Delphi-Quellcode:
function GetMemoRow (M : TMemo) : LongInt; //Reihe
begin
Result := SendMessage(M.Handle, EM_LINEFROMCHAR, M.SelStart, 0);
end;
function GetMemoCol (M : TMemo) : LongInt; //Spalte
begin
Result := M.SelStart-SendMessage(M.Handle, EM_LINEINDEX, SendMessage(M.Handle,
EM_LINEFROMCHAR, M.SelStart, 0), 0);
end;
nun möchte ich aber noch weitergehen und an der cursorposition text einfügen.
danke für eure hilfe im voraus 8)
kaemmi