iwunit1.pas

来自「IntraWeb.Develop.Sample」· PAS 代码 · 共 31 行

unit IWUnit1;
{PUBDIST}

interface

uses
  IWAppForm, IWApplication, IWTypes, HTTPApp, HTTPProd, IWProducer,
  Classes, IWLayoutMgr, IWTemplateProcessorHTML, DB, DBTables, Controls,
  IWControl, IWCompLabel, IWTMSCtrls, IWDBTMSCtrls, IWCompEdit,
  IWCompButton;

type
  TformMain = class(TIWAppForm)
    TIWAdvLUEdit1: TTIWAdvLUEdit;
    procedure IWButton1Click(Sender: TObject);
  public
  end;

implementation
{$R *.dfm}

uses
  ServerController;

procedure TformMain.IWButton1Click(Sender: TObject);
begin
  WebApplication.ShowMessage('i''m submit button!');
end;

end.