unit1.pas

来自「Delphi 应用举例」· PAS 代码 · 共 45 行

unit Unit1;
{PUBDIST}

interface

uses
  IWAppForm, IWApplication, IWTypes, Classes, Controls, IWControl,
  IWCompButton, IWCompText;

type
  TformMain1 = class(TIWAppForm)
    IWButton1: TIWButton;
    IWButton2: TIWButton;
    IWText1: TIWText;
    IWButton3: TIWButton;
    procedure IWButton1Click(Sender: TObject);
    procedure IWButton2Click(Sender: TObject);
    procedure IWButton3Click(Sender: TObject);
  public
    f: TIWAppForm;
  end;

implementation
{$R *.dfm}

uses
  ServerController,iwunit1;

procedure TformMain1.IWButton1Click(Sender: TObject);
begin
    hide
end;

procedure TformMain1.IWButton2Click(Sender: TObject);
begin
   f.Hide;
end;

procedure TformMain1.IWButton3Click(Sender: TObject);
begin
   f.Show
end;

end.