Rechte Mouse Taste inaktive machen in form1.

[Anakond]

Zitat von Anakond:

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, wenn man eine Taste drückt wird die 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.