开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
WizForm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：4k
源码类别：

Delphi控件源码

开发平台：

Delphi

WizForm.pas：源码内容
  1. unit WizForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ComCtrls, StdCtrls, ExtCtrls, ShellApi;
  9. type
  10.   TForm1 = class(TForm)
  11.     PageControl1: TPageControl;
  12.     TabSheet1: TTabSheet;
  13.     TabSheet2: TTabSheet;
  14.     TabSheet3: TTabSheet;
  15.     TabSheet4: TTabSheet;
  16.     TabSheet5: TTabSheet;
  17.     Image1: TImage;
  18.     btnNext1: TButton;
  19.     btnNext2: TButton;
  20.     btnNext3: TButton;
  21.     btnNext4: TButton;
  22.     btnNext5: TButton;
  23.     Bevel1: TBevel;
  24.     Label1: TLabel;
  25.     CheckInprise: TCheckBox;
  26.     btnBack: TButton;
  27.     Label2: TLabel;
  28.     Label3: TLabel;
  29.     CheckDone: TCheckBox;
  30.     Label4: TLabel;
  31.     Label5: TLabel;
  32.     CheckDone2: TCheckBox;
  33.     ListBox1: TListBox;
  34.     Label6: TLabel;
  35.     Label7: TLabel;
  36.     Label8: TLabel;
  37.     procedure btnNext1Click(Sender: TObject);
  38.     procedure btnBackClick(Sender: TObject);
  39.     procedure FormCreate(Sender: TObject);
  40.     procedure FormDestroy(Sender: TObject);
  41.     procedure btnNext2Click(Sender: TObject);
  42.     procedure btnNext3Click(Sender: TObject);
  43.     procedure btnNext4Click(Sender: TObject);
  44.     procedure btnNext5Click(Sender: TObject);
  45.     procedure LabelLinkClick(Sender: TObject);
  46.     procedure ListBox1Click(Sender: TObject);
  47.   private
  48.     BackPages: TList;
  49.   public
  50.     procedure MoveTo (TabSheet: TTabSheet);
  51.   end;
  53. var
  54.   Form1: TForm1;
  56. implementation
  58. {$R *.DFM}
  60. procedure TForm1.btnNext1Click(Sender: TObject);
  61. begin
  62.   if CheckInprise.Checked then
  63.     MoveTo (TabSheet2)
  64.   else
  65.     MoveTo (TabSheet3);
  66. end;
  68. procedure TForm1.btnBackClick(Sender: TObject);
  69. var
  70.   LastPage: TTabSheet;
  71. begin
  72.   // get the last page and jump to it
  73.   LastPage := TTabSheet (BackPages [BackPages.Count - 1]);
  74.   PageControl1.ActivePage := LastPage;
  75.   // delete the last page from the list
  76.   BackPages.Delete (BackPages.Count - 1);
  77.   // eventually disable the back button
  78.   BtnBack.Enabled := not (BackPages.Count = 0);
  79.   // move image and bevel
  80.   Bevel1.Parent := PageControl1.ActivePage;
  81.   Image1.Parent := PageControl1.ActivePage;
  82. end;
  84. procedure TForm1.FormCreate(Sender: TObject);
  85. begin
  86.   BackPages := TList.Create;
  87.   // always start with the first page
  88.   PageControl1.ActivePage := TabSheet1;
  89. end;
  91. procedure TForm1.FormDestroy(Sender: TObject);
  92. begin
  93.   BackPages.Free;
  94. end;
  96. procedure TForm1.MoveTo(TabSheet: TTabSheet);
  97. begin
  98.   // add the last page to the list
  99.   BackPages.Add (PageControl1.ActivePage);
  100.   BtnBack.Enabled := True;
  101.   // change page
  102.   PageControl1.ActivePage := TabSheet;
  103.   // move image and bevel
  104.   Bevel1.Parent := PageControl1.ActivePage;
  105.   Image1.Parent := PageControl1.ActivePage;
  106. end;
  108. procedure TForm1.btnNext2Click(Sender: TObject);
  109. begin
  110.   if CheckDone.Checked then
  111.     MoveTo (TabSheet5)
  112.   else
  113.     MoveTo (TabSheet3);
  114. end;
  116. procedure TForm1.btnNext3Click(Sender: TObject);
  117. begin
  118.   if CheckDone.Checked then
  119.     MoveTo (TabSheet5)
  120.   else
  121.     MoveTo (TabSheet4);
  122. end;
  124. procedure TForm1.btnNext4Click(Sender: TObject);
  125. begin
  126.   MoveTo (TabSheet5);
  127. end;
  129. procedure TForm1.btnNext5Click(Sender: TObject);
  130. begin
  131.   Close;
  132. end;
  134. procedure TForm1.LabelLinkClick(Sender: TObject);
  135. var
  136.   Caption, StrUrl: string;
  137. begin
  138.   Caption := (Sender as TLabel).Caption;
  139.   StrUrl := Copy (Caption, Pos ('http://', Caption), 1000);
  140.   ShellExecute (Handle, 'open', PChar (StrUrl), '', '', sw_Show);
  141. end;
  143. procedure TForm1.ListBox1Click(Sender: TObject);
  144. var
  145.   StrUrl: string;
  146. begin
  147.   StrUrl := ListBox1.Items [ListBox1.ItemIndex];
  148.   ShellExecute (Handle, 'open', PChar (StrUrl), '', '', sw_Show);
  149. end;
  151. end.