1

実行時に TJvWizard にページを追加する必要があります (ページはプラグインによって登録される場合があります)。JvWizard.Pages に追加しようとしましたが、有効な方法ではないようです - 最後から 2 番目のページとしてページを挿入する必要があります...

コードを試してみました

AddWizardPage(APage: TJvWizardCustomPage);
begin
if APage <> nil then
  begin
    Apage.Wizard:=JvWizard1;
    JvWizard1.Pages.Insert(JvWizard1.Pages.Count - 1 , APage);
    JvWizardRouteMapNodes1.Invalidate;
  end;
end;

しかし、RouteMap の最後のページとして追加され、最初のページと同じように起動時に表示されます...

前もって感謝します！

4

1 に答える 1

3

Pages.Insert を呼び出す代わりに、Page.Wizard プロパティを Wizard コンポーネントに設定する必要があります。これにより、親が設定され、ページが挿入されます。

procedure TForm1.FormCreate(Sender: TObject);
var
  Page: TJvWizardCustomPage;
begin
  Page := TJvWizardWelcomePage.Create(Self);
  Page.Wizard := JvWizard1;

  JvWizard1.ActivePage := Page;
end;
于 2009-09-06T20:24:46.907 に答える