TRichEdit und [STRG+ENTER]

[Real_Thunder]

Ich habe volgenes Problem


Ich möchte das eine bestimmte Aktion Ausgelößt wird wenn ich die STRG + Enter Taste innerhalb eines Richtextes drücke

ok, es klappt auch über das OnKeyDown Ereignis:

Delphi-Quellcode:

procedure TMessage_Fenster.enter_textKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssCtrl in Shift) and (Key = VK_RETURN) then begin
    Key := 0;
    button1.Click;
    enter_text.clear
  end;
end;

Das ereignis wird auch ausgeößt.....
Doch wenn ich enter drücke, dann übernimmt er den Zeilenvorsub gleich wieder, und der Cursor steht in der 2. Zeile, das jedoch wegen dem Key:=0; nicht passieren dürfte...

währe nett wenn jmand eine Lösung hätte....

P.S. wenn ich es nur mit enter mache, dann benutze ich OnKeyPress

und dort macht er es wie gewollt.. doch bei onkeypress kann ich keine tastenkombination abfangen...

MfG Real_Thunder