Verhindern der Öffnung eines Formulars bei Bedingung

[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;