iwunit1.pas

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

unit IWUnit1;
{PUBDIST}

interface

uses
  IWAppForm, IWApplication, IWTypes, IWCompButton, Classes, Controls,
  IWControl, IWHiddenField, IWCompEdit;

type
  TformMain = class(TIWAppForm)
    IWHiddenField1: TIWHiddenField;
    IWButton1: TIWButton;
    IWEdit1: TIWEdit;
    IWButton2: TIWButton;
    procedure IWButton2Click(Sender: TObject);
  public
  end;

implementation
{$R *.dfm}

uses
  ServerController;

procedure TformMain.IWButton2Click(Sender: TObject);
begin
    IWButton2.caption:=IWHiddenField1.text;
end;

end.