delphi 7 怎样制作一步步提示的界面

[haochin]

delphi 7 怎样制作一步步提示的界面
类似安装程序、SQL SERVER 的DTS导入导出，某些软件的操作提示等。。

用什么控件？
怎样实现？

[AsheBin]

不是有frame吗，设计好每一步，然后调就可以了。

[zhaochanghua]

cnpack.org
好像有这个，可是没有用过！
不过赞成用pageControl

[火龙岛主]

给你一个通用类：

unit FormGuide;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter, Menus,
  cxLookAndFeelPainters, StdCtrls, cxButtons, cxPC, cxControls, ExtCtrls,
  jpeg;

type
  TFormGuideCustom = class(TForm)
    cxPageControlGuide: TcxPageControl;
    cxTabSheet1: TcxTabSheet;
    cxButton1: TcxButton;
    ButtonPrior: TcxButton;
    ButtonNext: TcxButton;
    cxButtonExecute: TcxButton;
    Image1: TImage;
    procedure ButtonPriorClick(Sender: TObject);
    procedure ButtonNextClick(Sender: TObject);
    procedure cxButtonExecuteClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    FFinalExecute: boolean;
    function GetStepIndex: integer;
  protected
    procedure MoveTo(Value: integer);
    procedure SetButton;
  public
    constructor Create(AOwner: TComponent); override;
    procedure Init; virtual;
    procedure doExecute; virtual; abstract;
    procedure Next; virtual;
    procedure Prior; virtual;
    property StepIndex: integer read GetStepIndex;
    property FinalExecute: boolean read FFinalExecute write FFinalExecute default True;
  end;

var
  FormGuideCustom: TFormGuideCustom;

implementation

{$R *.dfm}

{ TFormGuideCustom }

procedure TFormGuideCustom.Init;
var
  i: integer;
  vPageCount: integer;
begin
  vPageCount := cxPageControlGuide.PageCount;
  if vPageCount >= 2 then
    for i := vPageCount - 1 downto 1 do
      cxPageControlGuide.Pages[i].TabVisible := false;
  cxPageControlGuide.ActivePageIndex := 0;
  SetButton;
end;

procedure TFormGuideCustom.MoveTo(Value: integer);
var
  vIndex: integer;
begin
  vIndex := cxPageControlGuide.ActivePageIndex + Value;
  cxPageControlGuide.ActivePageIndex := vIndex;
  cxPageControlGuide.Pages[vIndex].TabVisible := true;
  cxPageControlGuide.Pages[vIndex - Value].TabVisible := false;
  SetButton;
end;

procedure TFormGuideCustom.Next;
begin
  MoveTo(1);
end;

procedure TFormGuideCustom.Prior;
begin
  MoveTo(-1);
end;

procedure TFormGuideCustom.SetButton;
begin
  ButtonPrior.Enabled := cxPageControlGuide.ActivePageIndex > 0;
  ButtonNext.Enabled := (cxPageControlGuide.ActivePageIndex < (cxPageControlGuide.PageCount - 1));
  if FFinalExecute then
    cxButtonExecute.Enabled := not ButtonNext.Enabled
  else
    cxButtonExecute.Enabled := ButtonPrior.Enabled;
end;

procedure TFormGuideCustom.ButtonPriorClick(Sender: TObject);
begin
  Prior;
end;

procedure TFormGuideCustom.ButtonNextClick(Sender: TObject);
begin
  Next;
end;

procedure TFormGuideCustom.cxButtonExecuteClick(Sender: TObject);
begin
  doExecute;
end;

procedure TFormGuideCustom.FormShow(Sender: TObject);
begin
  Init;
end;

function TFormGuideCustom.GetStepIndex: integer;
begin
  result := cxPageControlGuide.ActivePageIndex;
end;

constructor TFormGuideCustom.Create(AOwner: TComponent);
begin
  inherited;
  FFinalExecute := True;
end;

这里使用的是TcxPageControl，你可以直接换成TPageCotrol就可以了

[shuihan20e]

推荐PAGECONTROLS,隐藏上面的TAB

[haochin]

[Quote=引用 19 楼 shuihan20e 的回复:]
推荐PAGECONTROLS,隐藏上面的TAB
[/Quote]


上面的TAB怎么样隐藏？？？？？？

谢啦。

[yuqianyi1974]

将tabsheet的属性tabvisible改为false

[motherffuucckkeerr]

最好最快最省资源就是用THREAD类 动态创建 控件,然后事件自己写一个 比如 NEXT 事件!

procedure Mybutton1Onclick(Send: TObject);
begin
...
end;

Mybutton := TButton.Create(nil);
Mybutton.parent := form1;
Mybutton.OnClick := Mybutton1Onclick;


其它类似的控件采用这种方法搞顶咯!!

[motherffuucckkeerr]

或者不用线程 直接在控件事件里创建下一步要产生的事件!!
绝对是个好方法! 试试看吧 !

[mathsfan]

搞的有必要这么麻烦吗？？？
几句话的事情，哎...

[Jack_Yin]

我用类似
if form1.showmodal = mrOK then form2.showmodal
其中 form1上有个按钮，一点就执行 form1.modalresult :=mrOk

[ITlover]

前段时间写了一个安装程序,觉得用notebook不错,上一步,下一步只要改变activepage属性值即可,初次使用的话,小心些就好(如果是用ctrl+v更要小心,别跑到其它页去了),你会喜欢它的.

[dinoalex]

pagecontrol,利用它的indexpage改变

[laihongbo524]

用DELPHI自带的TNoteBook就可以了

[kevinzhaoyp]

PageControl，隐藏标签就可以了（TabSheet.TabVisible = false）
然后切换页的时候，指定PageControl.ActivePageIndex就可以了。
多好啊，设计时也方便。

[向良玉]

panel1中“下一步”按钮的onclick事件的代码为：
panel2.showmodal;

panel2中“上一步”的按钮的代码为：
modalresult:=mrcancel;

panel2中“下一步”按钮的onclick事件的代码为：
panel3.showmodal;
.
.
.
所有窗体一样大就可以了，自己试试看吧

[纯冰糖]

Win3.1面板上的Notebook组件即可

编辑添加Pages，Click Button事件里每次切换ActivePage即可。

[tmanje]

[Quote=引用 29 楼 laihongbo524 的回复:]
用DELPHI自带的TNoteBook就可以了


[/Quote]
这个是最常用的

[genispan]

[Quote=引用 4 楼 Corn1 的回复:]
PageControl，隐藏标签就可以了（TabSheet.TabVisible = false）
然后切换页的时候，指定PageControl.ActivePageIndex就可以了。
[/Quote]
哈哈 我就是这么干的

[grace_zou]

notebook不错,只要改变activepage，可以结合IF判断，刚用不久，觉 得不错

[yjytiantang]

pagecontrol 一步一步来 也不错。。