Cursorposition im Memo festlegen

[moperswings]

Vielen Dank dass Du mich auf den richtigen Weg gebracht hast. Den Rest habe ich mir so hingebastelt wie ich es gebraucht habe.

Viele Grüsse, moperswings

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
        Memo1.SelStart := 3;
end;

procedure TForm1.Memo1OnKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
        selstart: integer;
        TempStr2: PChar;
begin
        if key = VK_RETURN then
        begin
        tempStr2 := '</p>';

        SendMessage(Memo1.Handle, EM_Getsel, longint(@selstart), 0);
        SendMessage(Memo1.Handle, EM_Replacesel, 0, LongInt(TempStr2));
        SendMessage(Memo1.Handle, EM_Setsel, selstart + 4, Selstart + 4);
        key := 0;
        end;
end;

procedure TForm1.Memo1OnKeyUP(Sender: TObject; var Key: Word; Shift: TShiftState);
var
        selstart: integer;
        TempStr1: PChar;

begin
        if key = VK_RETURN then
        begin
        tempStr1 := '

';

        SendMessage(Memo1.Handle, EM_Getsel, longint(@selstart), 0);
        SendMessage(Memo1.Handle, EM_Replacesel, 0, LongInt(TempStr1));
        SendMessage(Memo1.Handle, EM_Setsel, selstart + 4, Selstart + 3);
        key := 0;
        end;
end;
        // Das letzte 

 löschen:
        // Memo1.Lines.Delete(Memo1.Lines.Count - 1);
end.