Verhindern der Öffnung eines Formulars bei Bedingung

[mr.floppy81]

Moin,

in meinem Programm arbeite ich mit dbedit feldern.
Diese dbedit felder werden bei drücken des Knopfes "Füllen" mit verschiedenen Daten gefüllt.
Mit diesen Daten sollen Berechnungen durchgeführt werden wenn man auf den Knopf "Berechnen" drückt.
Ein weiteres Ereignis das auftritt wenn man den Knopf "Berechnen" drückt, ist dass sich Form1 schliesst und Form2 öffnet.
Auf Form2 werden dann die Ergebnisse angezeigt.

Wenn nun die Felder auf Form1 nicht mit daten gefüllt werden(der Anwender vergisst den Knopf Füllen zu drücken), so zeigt mir das Programm nach drücken des Knopfes die Fehlermeldung " '' ist kein gültiger Gleitkommawert an". Das ist klar weil eben die dbedit felder leer sind.

Wie kann ich diese Fehlermeldung verhindern??? und wie kann ich verhindern dass wenn ein Fehler auftritt, sich die Form2 öffnet???

LG Andreas

[Bernhard Geyer]

Schau mal die möglichen Ereignisse zu deinem Datensensitiven Controls an. Bei TDataset-Nachfahren gibt es viele OnBeforeXXX-Events, mit welchen man Überprüfungen durchführen könnte bevor ein Post zur Datenbank erfolgt.

[Dani]

Hi, mit Button2.Enabled := false kannst du verhindern, dass der Benutzer den Button klickt, bevor die Felder ausgefüllt sind.
Einfach am Ende von Button1.OnClick den anderen Button mit Button2.Enabled := true wieder aktivieren.

[malo]

Laufzeitfehler kannst du mit try und except abfangen.

Ansonsten kannst du auch den Code zum Schließen / Öffnen der Forms mit einer if-Abfrage nur dann ausführen lassen, wenn alle DBEdit-Felder gefüllt sind

[Sharky]

Ich würde einfach den Button "Berechnen" so lange sperren bis in allen Feldern Werte stehen.
Das ist in meinen Augen die einzige saubere Art und Weise.

[mr.floppy81]

jepp,

hatte ja gehofft dass das vielleicht mit einem mir unbekanntem Befehl gehen könnte^^.
Nun hab ich 8 if...then...else schleifen eingebaut und es geht...
(oder besser gesagt der Knopf geht nicht zu drücken )

Gut dann Danke für die Hilfe
Grüsse Andreas

[Sharky]

Zitat von mr.floppy81:

...Nun hab ich 8 if...then...else schleifen eingebaut ...

Warum das denn? Zeige mal deinen Code

[Sharky]

Hai mr.floppy81,

hier mal eine Beispiel wie ich es gemacht hätte:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Alle Edits haben das gleiche OnChange-Ereigniss
  Edit1.OnChange := EditChange;
  Edit2.OnChange := EditChange;
  Edit3.OnChange := EditChange;
  Edit4.OnChange := EditChange;
end;

procedure TForm1.EditChange(Sender: TObject);
begin
  // Button wird enebled wenn in allen Edits etwas steht
  Button1.Enabled :=  (Length (Trim(Edit1.Text)) > 0)
                  AND (Length (Trim(Edit2.Text)) > 0)
                  AND (Length (Trim(Edit3.Text)) > 0)
                  AND (Length (Trim(Edit4.Text)) > 0);
end;