Text an Cursorposition einfügen

[kaemmi]

gleich zu meinem problem: :arrow:
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

[Luckie]

Dazu brauchst du dir die Cursorposition nicht so umständlich holen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.SelText := 'Hallo';
end;

[kaemmi]

Ups :oops:
Da wollte ich wohl wieder mal mit Kanonen auf Spatzen schießen.
In diesem Sinne DANKE :dancer:

THX :coder: