Кидаю проект-болванку, сделанную перед началом работы над основным
unit Unit1; //базовая форма хранителя страницыinterfaceuses...
type
TBPgFrm = class(TForm)
Panel1: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Label1: TLabel;
publicfunction PgInit: boolean; virtual;
function PgValid: boolean; virtual;
end;
implementation{$R *.DFM}function TBPgFrm.PgInit: boolean;
begin
result := MessageDlg(Label1.Caption + ": PgInit",
mtConfirmation, mbOkCancel, 0) = mrOK;
end;
function TBPgFrm.PgValid: boolean;
begin
result := MessageDlg(Label1.Caption + ": PgValid",
mtConfirmation, mbOkCancel, 0) = mrOK;
end;
end.
// *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*unit Unit2; //главная форма проекта; содержит первую страницуinterface//и кнопки Cancel, Prev & Next/Finish.uses...
type
TPagesDlg = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Prev: TButton;
CancelBtn: TButton;
Next: TButton;
Label1: TLabel;
procedure CancelBtnClick(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure NextClick(Sender: TObject);
procedure PrevClick(Sender: TObject);
private
Frms: TList;
procedure AddForms;
end;
var
PagesDlg: TPagesDlg;
implementationuses Unit1, Unit3, Unit4, Unit5;
{$R *.DFM}procedure TPagesDlg.AddForms; //размещение динамических страницvar
i: word;
begin
Frms := TList.Create;
Frms.Add(TBPgFrm1.Create(Self));
Frms.Add(TBPgFrm2.Create(Self));
for i := 0 to 1 do
TBPgFrm(Frms[i]).TabSheet1.PageControl := PageControl1
end;
procedure TPagesDlg.CancelBtnClick(Sender: TObject);
begin
Close;
end;
procedure TPagesDlg.FormDestroy(Sender: TObject);
var
i: word;
beginfor i := Frms.Count - 1 downto 0 do
TBPgFrm(Frms[i]).Free;
Frms.Free;
end;
procedure TPagesDlg.NextClick(Sender: TObject);
var
i: word;
vi: Boolean;
begin
Next.Enabled := false;
if PageControl1.PageCount = 1 then
AddForms;
i := PageControl1.ActivePage.PageIndex;
if i = 0 then
vi := trueelse
vi := TBPgFrm(Frms[i - 1]).PgValid;
if vi thenwith PageControl1 doif i = PageCount - 1 thenbegin
CancelBtnClick(Sender);
exit;
endelsebegin
ActivePage := FindNextPage(ActivePage, True, false);
if ActivePage.PageIndex = PageCount - 1 then
Next.Caption := "Finish";
Prev.Enabled := true;
if TBPgFrm(Frms[i]).PgInit then
Next.Enabled := trueelse
PrevClick(Sender);
endelse
Next.Enabled := true;
end;
procedure TPagesDlg.PrevClick(Sender: TObject);
begin
Prev.Enabled := false;
with PageControl1 dobegin
ActivePage := FindNextPage(ActivePage, false, false);
Prev.Enabled := ActivePage.PageIndex > 0;
end;
Next.Caption := "Next";
Next.Enabled := true;
end;
end.
// *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*unit Unit3; //наследник с RadioGroup.interfaceuses...
type
TBPgFrm3 = class(TBPgFrm)
RadioValid: TRadioGroup;
publicfunction PgValid: boolean; override;
end;
implementation{$R *.DFM}function TBPgFrm3.PgValid: boolean;
begin
result := RadioValid.ItemIndex = 0;
end;
end.
// *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*unit Unit4; // наследник с CheckBox.interfaceuses...
type
TBPgFrm2 = class(TBPgFrm)
CheckValid: TCheckBox;
publicfunction PgValid: boolean; override;
end;
implementation{$R *.DFM}function TBPgFrm2.PgValid: boolean;
begin
result := CheckValid.Checked;
end;
end.
В Delphi 4 появились новые возможности, в частности, возможность докинга
визуальных компонент, в частности, форм, на различные DockSite, в том числе и на
TPageControl. Это более удобно. Кроме того, Вы имеете возможность использования
TFormLoader из библиотеки VG Library.
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Как работать с формой, куда динамически передаются страницы (PageControl) из форм-хранителей (с использованием наследования)", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!