iwunit1.pas

Delphi下IntraWeb应用开发详解中里面的 事件冲突的代码处理

unit IWUnit1;
{PUBDIST}

interface

uses
  IWAppForm, IWApplication, IWTypes, IWCompCheckbox, Classes, Controls,
  IWControl, IWCompButton, IWCompMemo;

type
  TformMain = class(TIWAppForm)
    IWButton1: TIWButton;
    IWCheckBox1: TIWCheckBox;
    IWMemo1: TIWMemo;
    procedure IWButton1Click(Sender: TObject);
  public
  end;

implementation
{$R *.dfm}

uses
  ServerController;

procedure TformMain.IWButton1Click(Sender: TObject);
begin
   webapplication.ShowMessage('服务器端事件onclick');
end;

end.