Wird ausgelöst, wenn eine neue Assistentenseite erzeugt wurde und nun die Control für diese Seite angelegt werden können.
Es wird der Name der Seite übergeben auf welcher die Controls jetzt angelegt werden können.

Signatur #

procedure CreateControls(const ptPageName:String);

Beispiel #

procedure CreateControls(const ptPageName:String);
Var Ctrl:TWizardControl;
begin
  if (ptPageName = 'tsSelect') then
  begin
    Ctrl:=Wizard.AddControl(ptPageName,'ctHeader',wcContainer);
    Ctrl['Mode']:=cmHorizontal;

      Ctrl:=Wizard.AddControl(ptPageName,'edFlightCode',wcEdit);
      Ctrl['Label']:='Flugnummer';
      Ctrl['LabelWidth']:=smAuto;
      Ctrl['Container']:='ctHeader';
      Ctrl['EditWidth']:='10c';
      Ctrl['Enabled']:=TRUE;

      Ctrl:=Wizard.AddControl(ptPageName,'edFlightDate',wcDateEdit);
      Ctrl['Label']:='vom';
      Ctrl['LabelWidth']:=smAuto;
      Ctrl['Container']:='ctHeader';
      Ctrl['EditWidth']:='10c';
      Ctrl['Enabled']:=TRUE;
      Ctrl['Value']:=Date;
  end;
end;