<Strg> + <Leer> Abfangen, aber Leerzeichen nicht zeichnen

[xZise]

Ich möchte, wenn man bei einem Memo <Strg>+<Leer> eingibt, dass kein Leerzeichen in das Memo geschrieben wird.
Wie kann ich das umgehen?
Ich benutze z.Zt. "KeyDown"

Delphi-Quellcode:

procedure TfrmSettings.mEndKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ([ssCtrl] = Shift) and (key = VK_SPACE) then
  begin
    // Dann soll er was machen
  end;
end;

[DGL-luke]

Dir das ganze in einem Boolean merken und im OnChange das Leerzeichen raushauen

Ich glaub, das ist die einzige Möglichkeit.

Eventuell feuert OnKeyPress da, da kannst du dann deinen Key auf #0 setzen, falls du das Boolean gesetzt hast - eine etwas elegantere Möglichkeit.

[xZise]

Das Problem ist, dass das Leerzeichen, davor gezeichnet wird...

Was auch möglich wäre, eine eine Memo zu machen, und die KeyPressmethode überschreiben...

[BenjaminH]

Key ist die Variable, die das enthält, was dann geschrieben wird. Setze da einfach nix rein:
Key:=#0;

[xZise]

Ja ich weis: Aber bei key down (was ich wegen der Strg-Taste brauch), hat er schon vorher das Zeichen gezeichnet...

[Martin K]

So gehts:

Delphi-Quellcode:

var
  StrgDown: Boolean = False;

{...}

procedure TForm3.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = VK_CONTROL then
    StrgDown := True;
end;

procedure TForm3.Memo1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = VK_CONTROL then
    StrgDown := False;
end;

procedure TForm3.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = ' ') and StrgDown then
    Key := #0;
end;

[xZise]

Ah Danke! So funktionierts...

[Martin K]

Noch etwas einfacher wäre das hier:

Delphi-Quellcode:

procedure TForm3.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = ' ') and (GetKeyState(VK_CONTROL) < 0) then
    Key := #0;
end;

[xZise]

Das ist natürlich die Beste Lösung!