Button freigeben wenn Felder gefüllt sind?

[Sharky]

Hai Leon de Bar,

am einfachsten machst Du das im .OnChange-Ereigniss der TEdits. Ich habe mal eine Beispiel in dem ich alle Edits der Form durchlaufe und prüfe ob sie ohne Inhalt sind.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  ndx : Integer;
begin
  Button1.Enabled := False;
  for ndx := 0 to ComponentCount - 1 do // Alle Komponenten der Form durchgehen
  begin
    if (Components[ndx] is TEdit) then  // Handelt es sich um ein Edit?
    begin
      TEdit(Components[ndx]).Clear // Inhalt aller Edits löschen
      TEdit(Components[ndx]).OnChange := AllEditChange; // Alle Edits das selbe OnChange zuweisen.
    end;
  end;
end;

procedure TForm1.AllEditChange(Sender: TObject);
var
  ndx : Integer;
  foo : Boolean;
begin
  foo := True;
  for ndx := 0 to ComponentCount - 1 do // Alle Komponenten der Form durchgehen
  begin
    if (Components[ndx] is TEdit) then  // Handelt es sich um ein Edit?
    begin
      if (TEdit(Components[ndx]).Text = '') then // Edit ist leer.
      begin
        foo := False; // Button wird deaktiviert
        Break;  // Schleife verlassen
      end;
    end;
  end;
  Button1.Enabled := foo;
end;