Vielen Dank, für eure Hilfe.
Jetzt funktioniert es wenigstens, aber ich verstehs nicht ganz.
Der Code ist zwar programmiertechnisch kein Leckerbissen aber wäre toll wenn ihr mal rübergucken könntet.
Zunächst wird die Seite erstellt und zwar anstelle der Passwortseite, wenn ich das richtig verstehe.
Wenn ich aber bei meiner Funktion NEXTButton
wpPasswort anstelle der 100 einsetze funktioniert es nicht
??
HAbs durchs debuggen rausgfunden, dass ich die Seiten ID 100 abfragen muss, hab keine Ahnung wieso ich 100 als Rückgabewert bekomme?? Müsste noch eigntlich auch mit wpPasswort funktionieren, denn ich ersetze doch die Seite, oder??
Delphi-Quellcode:
var
Page: TInputQueryWizardPage;
procedure InitializeWizard;
BEGIN
Page:=CreateInputQueryPage(wpPassword,'Lizenzabfrage', 'PEAK Lizenz abfrage', 'Bitte geben Sie die Lizenz des PEAK-Treibers ein und drücken Sie Weiter');
Page.Add('Lizenzcode ', False);
END;
FUNCTION NextButtonClick(CurPageID:Integer):Boolean;
BEGIN
IF not (CurPageID=100) THEN
BEGIN
Result := True;
END
ELSE
BEGIN
IF (Page.Values[0] = '1') OR (Page.Values[0] = '2') OR (Page.Values[0] = '3')
OR (Page.Values[0] = '4') OR (Page.Values[0] = '5') OR (Page.Values[0] = '6')THEN
BEGIN
Result:=TRUE;
END
ELSE
BEGIN
Result:=FALSE;
if MsgBox('Die Lizenz ist nicht korrekt. Bitte versuchen Sie es erneut!', mbConfirmation, MB_OK) = IDOK then
BEGIN
Page.Values[0] := ' ';
END;
END;
END;
END;