<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:

Delphi-Quellcode:

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... :drunken:

[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!