ASCII-Code für "Entf"

[Nalincah]

Zitat von Christian18:

Hallo General 2003

Ich habe vieleicht einen kleinen Tip für dich. Wenn du mit der ESC Taste dein programm schließen willst oder eine andere Form mit der ESC Taste schließen willst dann kannst du diese Procedure nehmen mußt du aber nicht!

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if shift=[] then
    case key of
      27: Close;
    end;
end;

noch ein kleiner tip statt close kannst du natürlich auch andere proceduren ablaufen lassen.

27 = ESC Taste
45 = Einf. Taste
13 = Enter Taste
46 = ENTF Taste

Bye Bye Christian18

Funktioniert leider nicht. Müsste das in jede Komponenten einbauen die einen Focus kriegen kann, damit der das Fenster schließt