Welkom bij de Tweaking4All gemeenschapsforums!
Voor je gaat deelnemen, bekijk de Forum Regels!
Specifieke onderwerpen: Start het onderwerp met de naam van het programma of systeem.
Bijvoorbeeld “MacOS X – Jouw vraag“, of bijvoorbeeld “MS Word – Jouw Tip of Truc“.
Merk op: Omschakelen naar een andere taal zal niet werken als je een post aan het lezen bent aangezien er waarschijnlijk geen vertaling beschikbaar is.
[Opgelost] Delphi/Lazarus - Hoe sluit je een window door op de Esc toets te drukken
Delphi, Lazarus, Free Pascal
(@hans)
Famed Member Admin
Deelgenomen: 12 jaar geleden
Berichten: 2864
Topic starter
11 februari 2014 0:12
Soms wil je dat een venster gesloten wordt als de gebruiker op de Esc toets drukt.
Implementatie daarvan is gelukkig niet moeilijk:
1) Zet Keypreview=True voor het betreffende Form
2) In het onKeyPressed event voeg je toe:
if key = #27 then Close;
Bijvoorbeeld:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #27 then Close;
end;
