Vielen Dank für die Antwort.
Die Schleife brauche ich jedoch, damit das Fenster offen bleibt sofern Falsche oder keine Angaben gemacht wurden und dann OK gedrückt wird. Nehme ich die Schleife raus so schließt sich das Fenster unabhängig davon immer sofort.
Hast du den Code von Bummi überhaupt getestet?
Ausserdem:
Delphi-Quellcode:
function TFrmSettings.execute:boolean;
begin
// Warum verwendest du nicht den Standardrückgabeparameter einer Funktion "Result"? Den Funktionsnamen zu nehmen ist zwar das gleiche, aber
// Result hat ein paar Vorteile und die alte Variante stammt noch mit aus den Anfangszeiten von Pascal, ist also "Deprecated" (Veraltet)
case ShowModal of
mrOk:
begin
// Warum greifst du innerhalb der Klasse auf die globale Variable der Form zu?
if not (SpnEdtTaskNumber.Value < 1) and not (SpnEdtTaskNumber.Value > 10) and (RdGrpOperator.ItemIndex <> -1) then
Result := FALSE
else
Result := TRUE;
end;
mrCancel:
Result := FALSE;
end;
end;
[...]
procedure TFrmMain.BtnSettingsClick(Sender: TObject);
begin
repeat until not FrmSettings.execute;
end;
In dem Moment, wo die Schleife prüft, ob "FrmSettings.execute" TRUE / FALSE ergibt, wird die Funktion aufgerufen und somit der Code in ihr ausgeführt. Daher MUSS das funktionieren.
Im Umkehrschluss kannst du dich natürlich auch selbst fragen, warum du 2x auf "OK" klicken musst: Weil auch 2x die Funktion aufgerufen wird?