wizard.pas

一个使用UDP开发的消息广播服务与客户端程序

unit Wizard;

interface

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

type
  TfrmWizard = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BtnOK: TBitBtn;
    Panel1: TPanel;
    BitBtn4: TBitBtn;
    Image1: TImage;
    PCprn: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    GroupBox4: TGroupBox;
    TabSheet5: TTabSheet;
    GroupBox3: TGroupBox;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    LabeledEdit4: TLabeledEdit;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit5: TLabeledEdit;
    GroupBox5: TGroupBox;
    LabeledEdit6: TLabeledEdit;
    LabeledEdit7: TLabeledEdit;
    GroupBox6: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    LabeledEdit8: TLabeledEdit;
    LabeledEdit9: TLabeledEdit;
    LabeledEdit10: TLabeledEdit;
    GroupBox1: TGroupBox;
    LabeledEdit15: TLabeledEdit;
    LabeledEdit11: TLabeledEdit;
    LabeledEdit12: TLabeledEdit;
    LabeledEdit13: TLabeledEdit;
    GroupBox2: TGroupBox;
    Edit1: TEdit;
    Label4: TLabel;
    Edit2: TEdit;
    Label5: TLabel;
    Edit3: TEdit;
    Label6: TLabel;
    Edit4: TEdit;
    Label7: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Label8: TLabel;
    Label9: TLabel;
    Edit5: TEdit;
    GroupBox7: TGroupBox;
    Memo1: TMemo;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure PCprnChange(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmWizard: TfrmWizard;

implementation

{$R *.DFM}

procedure TfrmWizard.FormShow(Sender: TObject);
begin
    Self.Left:=(Screen.Width-Self.Width) div 2;
    Self.Top:=(Screen.Height-Self.Height) div 2;
end;

procedure TfrmWizard.BitBtn1Click(Sender: TObject);
begin
    pcprn.ActivePageIndex:=pcprn.ActivePageIndex-1;
    BitBtn2.Enabled:=True;
    if pcprn.ActivePageIndex=0 then
       BitBtn1.Enabled:=False
    else
       BitBtn1.Enabled:=True;

end;

procedure TfrmWizard.BitBtn2Click(Sender: TObject);
begin
    pcprn.ActivePageIndex:=pcprn.ActivePageIndex+1;
    BitBtn1.Enabled:=True;
    if pcprn.ActivePageIndex=4  then
       BitBtn2.Enabled:=False
    else
       BitBtn2.Enabled:=True;

end;

procedure TfrmWizard.PCprnChange(Sender: TObject);
begin
    if pcprn.ActivePageIndex=0  then
       BitBtn1.Enabled:=False
    else
        BitBtn1.Enabled:=True;
    if pcprn.ActivePageIndex=4  then
       BitBtn2.Enabled:=False
    else
       BitBtn2.Enabled:=True;
end;

procedure TfrmWizard.BitBtn4Click(Sender: TObject);
begin
    Close();
end;

end.