Schliessen eines Formulars

[XaRidA_THEONLY]

Hallo zusammen.

Hab mal ne frage,

ich hätte gärne, dass mein Formular sich beim drücken von ALT+F4 und
ESC schliesst. Wie mache ich das???

Thanks XaRidA :angel:

[mirage228]

Hi,

Alt+F4 sollte von Windows her automatisch gehen.

Für ESC musst du das OnKeyPress bzw. OnKeyUp Ereignis behandeln und auf die ESC Taste prüfen.
Setze dann zudem die Eigenschaft KeyPreview vom Form auf True ;)

mfG
mirage228

[Steve]

Hi,

bei ALT+F4 sollte sich das Formular eh schließen :)
Für Esc ist eine Möglichkeit folgende:
Form1.KeyPreview auf true setzen, im OnKeyDown/Up Ereignis prüfen, ob Esc gedrückt wurde (Virtuelle Tastencodes) und dann Close aufrufen :)

Gruß
Stephan :dance:

[roderich]

statt OnKeyDown/Up kann man auch OnKeyPress verwenden.

oder, was mir besser gefallen würde, ein PopupMenu verwenden, Menueeintrag "Beenden" mit Hotkey Escape eintragen und im OnClick ein Close

Roderich

[XaRidA_THEONLY]

Wie kann ich das auf die ESC Taste prüfen??


XaRidA :angel:

[ste_ett]

Asciiwert für ESC ist 27.

[Steve]

Der Parameter Key in OnKeyXXX gibt an, welche Taste gedrück wurde.
Virtuelle Tastencodes sind Konstanten für die Tasten, z.B. auch "VK_ESCAPE"


edit: Ich persönlich kann mit "IF Key = VK_ESCAPE" mehr anfangen als mit "IF Key = 27" .. ;)

Gruß
Stephan :dance:

[Matze]

Hier mal schön mit Delphi-tags: *pingeligbin* :tongue: :mrgreen:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_escape then Application.MainForm.Close;
end;

[XaRidA_THEONLY]

Hey merci,

das funzt super. :thumb:

Thanks XaRidA :angel: