Eine Kleinigkeit:
Zitat von
thklingler:
Delphi-Quellcode:
procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID=100 Then
Wizardform.NextButton.enabled:=false;
end;
Zum einen würde ich nicht den Wert "100" nehmen sondern "UserPage.ID". Der Wert mag zwar 100 sein, aber warum sich so was angewöhnen? Die andere Sache ist die, dass in deinem Fall der Weiter-Button immer deaktiviert wird. Auch, wenn man was ins Eingabefeld geschrieben hat, zum nächsten Fenster ging (Weiter >) und von da aus wieder zurückkam (< Zurück).
Besser wäre also ein schlichtes:
Delphi-Quellcode:
if CurPageID = UserPage.ID then
Pchange(nil);
Und wenn wir schon dabei sind:
Delphi-Quellcode:
procedure Pchange (Sender: TObject);
begin
WizardForm.NextButton.Enabled := UserPage.Values[0] <> '';
end;
