message_unit.pas

来自「p2pdbanywhere 可以通过之udp方式远程连接数据库的组件,这个组件非」· PAS 代码 · 共 69 行

unit Message_unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TMessage_form = class(TForm)
    Memo1: TMemo;
    Panel2: TPanel;
    Memo2: TMemo;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    sendqq:boolean;
    sendstr:string;
    { Public declarations }
  end;

var
  Message_form: TMessage_form;

implementation

{$R *.dfm}

procedure TMessage_form.BitBtn1Click(Sender: TObject);
begin
  close;
end;

procedure TMessage_form.BitBtn2Click(Sender: TObject);
begin
  //回复
  if length(trim(memo2.Text))>0 then
  begin
    sendstr:=memo2.Text;
    sendqq:=true;
    memo1.Lines.Add('我的回复消息：'+memo2.Text);
    memo2.Text:='';
  end else
  begin
    showmessage('不允许发送空内容！');
  end;
  memo2.SetFocus;
end;

procedure TMessage_form.FormCreate(Sender: TObject);
begin
  sendqq:=false;
  sendstr:='';
end;

procedure TMessage_form.FormShow(Sender: TObject);
begin
  memo2.SetFocus;
end;

end.