iwunit1.pas

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

unit IWUnit1;
{PUBDIST}

interface

uses
  IWAppForm, IWApplication, IWTypes, IWLayoutMgr, IWTemplateProcessorHTML,
  Classes, Controls, IWControl, IWCompButton, IWCompEdit, IWLayoutMgrHTML,
  IWCompText, IWCompMemo;

type
  TformMain = class(TIWAppForm)
    IWButton1: TIWButton;
    IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
    IWEdit1: TIWEdit;
    IWLayoutMgrHTML1: TIWLayoutMgrHTML;
    IWMemo1: TIWMemo;
    procedure IWButton1Click(Sender: TObject);
    procedure IWTemplateProcessorHTML1UnknownTag(const AName: String;
      var VValue: String);
  public
  end;

implementation
{$R *.dfm}

uses
  ServerController;

procedure TformMain.IWButton1Click(Sender: TObject);
begin
   IWButton1.Caption:=IWEdit1.Text
end;

procedure TformMain.IWTemplateProcessorHTML1UnknownTag(const AName: String;
  var VValue: String);
begin
  if Aname='hello' then  VValue:='<p>This is a HELLO_TEXT</p>'
end;

end.