Unsichtbares Leerzeichen

[Reinhard Kern]

Zitat von jellol:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 17 then strgpress := true;
  if (key = 8) and (strgpress) then edit1.text := '';
end;

Hallo,

zunächst sollte man die definierten Konstanten benutzen (VK_BACK) und die gedrückte Strg-Taste aus Shift auslesen. Ausserdem wird die Eingabe Ctrl-BS ausgewertet, das gedrückte Zeichen wird aber zur Verarbeitung an Formular oder Edit weitergegeben. Wenn man eine Taste selbst verarbeitet, sollte man Key = 0 setzen, damit nicht aufgrund des Tastendrucks noch irgendwas anderes passiert. Also etwa so:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key = VK_BACK) and (ssCtrl in Shift) then 
    begin
    edit1.text := '';
    Key := 0;
    end;
end;

[/quote]