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