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

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