chatunit.pas

来自「这是一个可以在小局域网内聊天的小工具」· PAS 代码 · 共 57 行

unit ChatUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls;

type
  TChatForm = class(TForm)
    StatusBar1: TStatusBar;
    MsgMemo: TMemo;
    btnSend: TButton;
    btnCancel: TButton;
    procedure btnSendClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure MsgMemoKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
    FromIP,RemoteComputName:String;
  end;

var
  ChatForm: TChatForm;

implementation

{$R *.DFM}

procedure TChatForm.btnSendClick(Sender: TObject);
begin
ShowMessage('OK');
Close;
end;

procedure TChatForm.btnCancelClick(Sender: TObject);
begin
ShowMessage('Cancel');
Close;
end;

procedure TChatForm.MsgMemoKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key=13 then
  if ssCtrl in Shift then
    begin
    btnSend.Click;
    end;
end;

end.