broadcastunt.pas

来自「絮语2007视频聊天软件源程序.仅供参考」· PAS 代码 · 共 104 行

unit broadcastunt;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, ComCtrls, OLERichEdit, xpButton,constunt;

type
  Tbroadcastfrm = class(TForm)
    RadioButton1: TRadioButton;
    Label1: TLabel;
    Bevel1: TBevel;
    RadioButton2: TRadioButton;
    Label2: TLabel;
    send_memo: TOLEEdit;
    xpButton1: TxpButton;
    xpButton2: TxpButton;
    procedure FormPaint(Sender: TObject);
    procedure xpButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure xpButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure Label2Click(Sender: TObject);
  private
    { Private declarations }
  public
    Operation,md5name:string;
    { Public declarations }
  end;

var
  broadcastfrm: Tbroadcastfrm;

implementation
uses udpcores,shareunit,richunt;
{$R *.DFM}

procedure Tbroadcastfrm.FormPaint(Sender: TObject);
begin
udpcore.formonpaint(self);
end;

procedure Tbroadcastfrm.xpButton2Click(Sender: TObject);
begin
close;
end;

procedure Tbroadcastfrm.FormCreate(Sender: TObject);
begin
udpcore.changeLayered(handle);
initrichedit(trichedit(send_memo));
send_memo.font:=udpcore.myfont.font;
end;

procedure Tbroadcastfrm.xpButton1Click(Sender: TObject);
var msg:String;
begin
if length(send_memo.text)>0 then
    begin
    makeparamsex(msg,'msgid',xy_message);
    makeparamsex(msg,'funid',xy_broadcast);
    makeparamsex(msg,'msgtext',send_memo.text);

    xpButton1.Enabled:=false;
    if Operation='Broadcast' then
        udpcore.sendbroadcast(RadioButton1.checked,msg);
    if Operation='Messenger' then
        udpcore.sendtomessager(md5name,msg);
    xpButton1.Enabled:=true;
    end;
end;

procedure Tbroadcastfrm.FormShow(Sender: TObject);
begin
if Operation='Broadcast' then
   begin
   caption:='发送广播消息';
   RadioButton1.Enabled:=true;
   label1.Enabled:=true;
   end;
   
if Operation='Messenger' then
   begin
   caption:='发送Windows消息到好友';
   RadioButton2.checked:=true;
   RadioButton1.Enabled:=false;
   label1.Enabled:=false;
   end;
end;

procedure Tbroadcastfrm.Label1Click(Sender: TObject);
begin
RadioButton1.checked:=true;
end;

procedure Tbroadcastfrm.Label2Click(Sender: TObject);
begin
RadioButton2.checked:=true;
end;

end.