Um die Passwortprüfung nur einmal machen zu müssen:
Delphi-Quellcode:
procedure TForm1.edtPasswordChange(Sender: TObject);
var
i : integer;
bOk : Boolean;
begin
bOk := PasswordValid(edtPassword.Text);
for i := Low(FButtons) to High(FButtons) do
FButtons[i].Visible := bOk;
end;
Je nachdem wie die Prüfung des Passwortes erfolgt (z. B. Abgleich mit Daten in einer Datenbank), kann es schon sinnvoll sein, die Prüfung des Passwortes nur einmalig vorzunehmen.