ssmain.pas

基于delphi的聊天室工具

unit ssMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ComCtrls, ToolWin, Menus, StdCtrls, ExtCtrls, ScktComp,
  shellApi,wininet, WinSkinData, CoolTrayIcon;

type
  TfrmChat = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ilMain: TImageList;
    tlbbStart: TToolButton;
    tlbbStop: TToolButton;
    tlbbAbout: TToolButton;
    tlbbExit: TToolButton;
    Panel1: TPanel;
    Splitter1: TSplitter;
    Panel2: TPanel;
    Lv1: TListView;
    Panel3: TPanel;
    lbname: TLabel;
    lbChat: TLabel;
    cbChat: TComboBox;
    ss: TServerSocket;
    ImageList2: TImageList;
    mChatRec: TMemo;
    SkinData1: TSkinData;
    CoolTrayIcon1: TCoolTrayIcon;
    procedure tlbbStartClick(Sender: TObject);
    procedure tlbbStopClick(Sender: TObject);
    procedure tlbbExitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ssAccept(Sender: TObject; Socket: TCustomWinSocket);
    procedure ssClientDisconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ssClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure cbChatKeyPress(Sender: TObject; var Key: Char);
    procedure Lv1DblClick(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure CoolTrayIcon1DblClick(Sender: TObject);
    procedure mChatRecChange(Sender: TObject);
    procedure tlbbAboutClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure mytitlemessage(var msg:TWmsyscommand);message WM_SYSCOMMAND;
    function  GetMaskString(s,Mask:string;Position:integer):string;
  public
    { Public declarations }
  end;

var
  frmChat: TfrmChat;

implementation

uses about;

{$R *.dfm}
procedure TfrmChat.mytitlemessage(var msg:TWmsyscommand);
begin
  //得到消息的参数