demounit.pas

vVC显示图片 VC显示图片 VC显示图片 VC显示图片 VC显示图片

unit DemoUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, WizardCtrl, StdCtrls;

type
  TForm1 = class(TForm)
    Notebook1: TNotebook;
    WizardCtrl1: TWizardCtrl;
    Panel1: TPanel;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure WizardCtrl1HelpClick(Sender: TObject);
    procedure WizardCtrl1CancelClick(Sender: TObject);
    procedure WizardCtrl1FinishClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WizardCtrl1HelpClick(Sender: TObject);
begin
  ShowMessage('你按了帮助按钮！');
end;

procedure TForm1.WizardCtrl1CancelClick(Sender: TObject);
begin
  if MessageBox(Handle, '是否退出向导？', '提示', 36) = ID_YES then Close;
end;

procedure TForm1.WizardCtrl1FinishClick(Sender: TObject);
begin
  ShowMessage('你按了完成按钮！');
end;

end.