Einzelnen Beitrag anzeigen

nuclearping

Registriert seit: 7. Jun 2008
708 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#5

AW: ungewollter doppelter Formularaufruf

  Alt 29. Okt 2012, 12:58
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?
  Mit Zitat antworten Zitat