dm_share.~pas

一个QQ的界面源码

unit dm_share;

interface

uses
  SysUtils, Classes, ImgList, Controls, DB, TinyDB, NMUDP;

type
  TDMShare = class(TDataModule)
    ImgLarge: TImageList;
    ImgSmall: TImageList;
    TblUsers: TTinyTable;
    TblFriends: TTinyTable;
    TblChatLog: TTinyTable;
    TblSystemMsg: TTinyTable;
    Udp: TNMUDP;
    IconList: TImageList;
    procedure UdpDataReceived(Sender: TComponent; NumberBytes: Integer;
      FromIP: String; Port: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DMShare: TDMShare;

implementation

uses Var_Share;

{$R *.dfm}

procedure TDMShare.UdpDataReceived(Sender: TComponent;
  NumberBytes: Integer; FromIP: String; Port: Integer);
begin
   Exit;
end;

end.