AppMode模式的IntraWeb应用程序

最新推荐文章于 2024-12-18 11:00:06 发布

niochen

最新推荐文章于 2024-12-18 11:00:06 发布

阅读量625

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： dialog class

本文链接：https://blog.youkuaiyun.com/jfree5200/article/details/3912832

Delphi 专栏收录该内容

95 篇文章

订阅专栏

本文介绍了一个使用IWAppForm创建简单Web应用程序的例子。该程序包括一个输入框供用户输入文本，一个按钮用于提交文本，以及一个链接用于退出程序。提交后的文本将显示在一个对话框中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

unit Main;
{PUBDIST}
interface
uses
  IWAppForm, IWApplication, IWTypes, IWCompButton, IWCompEdit, Classes,
  Controls, IWControl, IWCompLabel, Dialog, IWHTMLControls;
type
  TformMain = class(TIWAppForm)
    IWLabel1: TIWLabel;
    editText: TIWEdit;
    butnOk: TIWButton;
    IWLink1: TIWLink;
    procedure butnOkClick(Sender: TObject);
    procedure IWAppFormCreate(Sender: TObject);
    procedure IWLink1Click(Sender: TObject);
  public
    FDialogForm: TformDialog;
  end;

implementation
{$R *.dfm}

uses
  SysUtils;

procedure TformMain.butnOkClick(Sender: TObject);
var
  s: string;
begin
  s := Trim(editText.Text);
  editText.Text := '';
  if s = '' then begin
    WebApplication.ShowMessage('Please enter some text.');
  end else begin
    with FDialogForm do begin
      IWMemo1.Lines.Add(s);
      Inc(FCount);
      Show;
    end;
  end;
end;

procedure TformMain.IWAppFormCreate(Sender: TObject);
begin
  FDialogForm := TformDialog.Create(WebApplication);

end;

procedure TformMain.IWLink1Click(Sender: TObject);
begin
  WebApplication.Terminate('Good bye!');
end;
end.