怎么用unigui开发对话框的聊天记录，给我代码例子

在 UniGUI 中开发对话框的聊天记录，你需要做以下步骤:

1. 在 UniGUI 项目中新建一个对话框窗体，设置对话框的布局，比如使用多行文本框显示聊天记录，使用单行文本框和按钮来输入聊天内容并发送。

2. 在对话框窗体的代码中，声明一个字符串变量来保存聊天记录，并在每次输入聊天内容并发送后，将聊天内容拼接到聊天记录字符串中。

3. 在对话框窗体的代码中，添加一个按钮的单击事件处理函数，在该函数中，获取用户输入的聊天内容，并将其拼接到聊天记录字符串中。然后更新多行文本框的显示内容。

以下是一个简单的代码示例:

unit ChatDialog;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TChatDialogForm = class(TForm)
    ChatHistory: TMemo;
    ChatInput: TEdit;
    SendButton: TButton;
    procedure SendButtonClick(Sender: TObject);
  private
    { Private declarations }
    FChatHistory: string;
  public
    { Public declarations }
  end;

var
  ChatDialogForm: TChatDialogForm;

implementation

{$R *.dfm}

procedure TChatDialogForm.SendButtonClick(Sender: TObject);
begin
  FChatHistory := FChatHistory + ChatInput.Text + #13#10;
  ChatHistory.Text := FChatHistory;
  ChatInput.Clear;
end;