Hallo,
ich probiere es schon den ganzen Tag :-(
Wenn in einem Memo die Enter-Taste gedrückt wird, sollen die zwei Tags eingefügt werden und der Cursor soll zwischen diesen beiden Tags stehen. Der Cursor springt aber immer zwei Zeilen tiefer unter das Abschluss </p>. Hoffe Ihr könnt mir helfen, dass der Cursor nach Tastendruck um zwei Zeilen wieder nach oben springt.
Viele Grüsse, moperswings
Delphi-Quellcode:
procedure TForm1.Memo1OnKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if key = VK_RETURN then Memo1.Lines.Add('
');
//cursor position
if key = VK_RETURN then Memo1.Lines.Add('</p>');
end;