Hallo, vielen Dank für deine Antwort, jetzt kann ich mehr daraus tun.
Ich hätte noch eine frage: wie kann man die Mouse Taste abschalten im RichEdit.
Z.b wenn man im RichEdit mit der Linke Mouse Taste im Text Klickt zwischen Rich und Edit "Rich(caret)Edit" der Caret blinkt dazwischen.
Mein Ziel ist wenn man mit der Linke Mouse Taste drückt die soll nicht aktiv werden, also wirkungslos.
Wie zum beispiel mit der Key Taste, kann man eine Taste drückt auf #0 setzen.
Delphi-Quellcode:
procedure TForm1.Richedit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key in ['A'..'Z', 'a'..'z', '0'..'9']) then Key := #0;
end;
Ist sowas auch mit der Mouse Taste möglich.
Delphi-Quellcode:
procedure TForm1.Richedit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (Button=mbLeft) then ????? Button := #0 ????
end;
Sehr viele Dank für die Infos. Schönen Tag, Grüss.