iwunit1.pas

来自「Delphi网络应用开发的源代码」· PAS 代码 · 共 49 行

unit IWUnit1;
{PUBDIST}

interface

uses
  IWAppForm, IWApplication, IWTypes, Classes, Controls, IWControl,
  IWHTMLControls;

type
  TformMain = class(TIWAppForm)
    IWLink1: TIWLink;
    IWLink2: TIWLink;
    IWLink3: TIWLink;
    IWLink4: TIWLink;
    procedure IWLink1Click(Sender: TObject);
    procedure IWLink2Click(Sender: TObject);
    procedure IWLink3Click(Sender: TObject);
    procedure IWLink4Click(Sender: TObject);
  public
  end;

implementation
{$R *.dfm}

uses
  ServerController;

procedure TformMain.IWLink1Click(Sender: TObject);
begin
  WebApplication.ShowMessage('以对话框的方式显示提示信息!', smAlert);
end;

procedure TformMain.IWLink2Click(Sender: TObject);
begin
  WebApplication.ShowMessage('在一个新IE窗口上显示提示信息!', smNewWindow);
end;

procedure TformMain.IWLink3Click(Sender: TObject);
begin
  WebApplication.ShowMessage('在一个新页面上显示提示信息!', smSameWindow);
end;

procedure TformMain.IWLink4Click(Sender: TObject);
begin
 WebApplication.ShowMessage('在一个新页面的特定位置显示提示信息!', smSameWindowFrame);
end;

end.