Handelt es sich um ein modales oder nichtmodales Formular?
Bei einem modalen Formular (und das bietet sich an), gibt es folgende Features:
Ein Button, dessen Property
Cancel auf True steht wird automatisch von der
VCL geklickt, wenn der Benutzer
Escape drückt.
(Also vergiss alles mit KeyPress.)
Es darf nur einen Button mit Cancel=True geben!!
Wenn dieser Button (oder BitBtn) im Property
ModalResult einen Wert ungleich mrNone wird das Formular
automatisch geschlossen.
Ein modales Formular wird im Prinzip so benützt:
Delphi-Quellcode:
var
frm : TProgSettingsForm;
begin
// Formular erzeugen
frm := TProgSettingsForm.Create(nil);
try
// Anfangswert ins Formular schreiben
frm.AnzahlVersuche := .....
if frm.ShowModal = mrOK then
begin
// evtl. geänderte Werte auslesen und irgenwo speichern
... := frm.AnzahlVersuche;
end;
finally
frm.Free;
end;
end;