uadduser.pas

用Delphi写的网络聊天工具

unit uAddUser;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzBckgnd, RzButton, ExtCtrls, RzForms, RzPanel, RzTabs,
  StdCtrls, Mask, RzEdit, RzLabel, ComCtrls, RzListVw, GeneralSource;

type
  TAddfrm = class(TForm)
    RzPanel1: TRzPanel;
    RzFormShape1: TRzFormShape;
    RzShapeButton1: TRzShapeButton;
    RzPanel2: TRzPanel;
    RzSeparator1: TRzSeparator;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn5: TRzBitBtn;
    RzGroupBox1: TRzGroupBox;
    RzLabel2: TRzLabel;
    RzLabel1: TRzLabel;
    edID: TRzEdit;
    edName: TRzEdit;
    RzGroupBox2: TRzGroupBox;
    UserList: TRzListView;
    procedure RzShapeButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RzBitBtn5Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    UserInfo:PUserInfo;
    procedure AddUser(ID,Name:string;Sex,Logined:integer);
  end;

var
  Addfrm: TAddfrm;

implementation

uses mainfrm;

{$R *.dfm}

procedure TAddfrm.RzShapeButton1Click(Sender: TObject);
begin
  close;
end;

procedure TAddfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if assigned(UserInfo) then
    Dispose(UserInfo);
  Action:=cafree;
end;

procedure TAddfrm.RzBitBtn5Click(Sender: TObject);
begin
  close;
end;

procedure TAddfrm.RzBitBtn2Click(Sender: TObject);
begin
  UserList.Clear; 
  frmmain.Send('G',frmmain.myHandle,frmmain.myID,edID.Text,edName.Text,'','','');
end;

procedure TAddfrm.AddUser(ID, Name: string;Sex,Logined:integer);
var
  ListItem:TListItem;
begin
  ListItem:=UserList.Items.Add;
  ListItem.Caption:=ID+'('+Name+')';
  if Logined=1 then
    ListItem.ImageIndex:=3+Sex
  else
    ListItem.ImageIndex:=12+Sex;  
end;

procedure TAddfrm.RzBitBtn1Click(Sender: TObject);
begin
  if UserList.Selected<>nil then
  begin
    //showmessage(UserInfo^[UserList.Selected.Index].Logined);
    frmmain.Send('W',frmmain.myHandle,frmMain.myID,UserInfo^[UserList.Selected.Index].ID,UserInfo^[UserList.Selected.Index].UserName,UserInfo^[UserList.Selected.Index].Sex,UserInfo^[UserList.Selected.Index].Logined,'');
    close;
  end
  else
    frmmain.Information('请选择用户！');  
end;

end.