开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > 远程控制编程 > 查看源码
MessageUnit.pas
资源名称：gf135s.zip　[点击查看]
上传用户：zhuoer
上传日期：2007-01-08
资源大小：128k
文件大小：3k
源码类别：

远程控制编程

开发平台：

Delphi

MessageUnit.pas：源码内容
  1. unit MessageUnit;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Buttons, StdCtrls, ExtCtrls;
  9. type
  10.   TfrmMessage = class(TForm)
  11.     sbNoIcon: TSpeedButton;
  12.     Label1: TLabel;
  13.     sbWarning: TSpeedButton;
  14.     sbInfo: TSpeedButton;
  15.     sbStop: TSpeedButton;
  16.     sbQuest: TSpeedButton;
  17.     rgType: TRadioGroup;
  18.     txtMessage: TEdit;
  19.     Label2: TLabel;
  20.     Label3: TLabel;
  21.     cmdSend: TButton;
  22.     cmdCancel: TButton;
  23.     cmdTest: TButton;
  24.     Label4: TLabel;
  25.     txtCaption: TEdit;
  26.     procedure FormCreate(Sender: TObject);
  27.     procedure sbNoIconClick(Sender: TObject);
  28.     procedure sbWarningClick(Sender: TObject);
  29.     procedure sbInfoClick(Sender: TObject);
  30.     procedure sbStopClick(Sender: TObject);
  31.     procedure sbQuestClick(Sender: TObject);
  32.     procedure cmdTestClick(Sender: TObject);
  33.     procedure cmdCancelClick(Sender: TObject);
  34.     procedure cmdSendClick(Sender: TObject);
  35.   private
  36.     { Private declarations }
  37.   public
  38.     { Public declarations }
  39.   end;
  41. var
  42.   frmMessage: TfrmMessage;
  43. implementation
  45. uses main;
  47.  var
  48.   CIcon : integer;
  49.   IconConst : array [0..4] of integer=(0, MB_ICONEXCLAMATION,
  50.          MB_ICONINFORMATION, MB_ICONSTOP,  MB_ICONQUESTION);
  51. {$R *.DFM}
  53. procedure TfrmMessage.FormCreate(Sender: TObject);
  54. begin
  55.  CIcon:=0;
  56. end;
  58. procedure TfrmMessage.sbNoIconClick(Sender: TObject);
  59. begin
  60.  CIcon:=0;
  61. end;
  63. procedure TfrmMessage.sbWarningClick(Sender: TObject);
  64. begin
  65.  CIcon:=1;
  66. end;
  68. procedure TfrmMessage.sbInfoClick(Sender: TObject);
  69. begin
  70.  CICon:=2;
  71. end;
  73. procedure TfrmMessage.sbStopClick(Sender: TObject);
  74. begin
  75.  CIcon:=3;
  76. end;
  78. procedure TfrmMessage.sbQuestClick(Sender: TObject);
  79. begin
  80.  CIcon:=4;
  81. end;
  83. procedure TfrmMessage.cmdTestClick(Sender: TObject);
  84.  var TSum : LongInt;
  85.      MCapt, MText : PChar;
  86.      MT, RT : string;
  87.      i : integer;
  88. begin
  89.  TSum:=0;
  90.  case rgType.ItemIndex of
  91.   1 : TSum:=MB_ABORTRETRYIGNORE;
  92.   2 : TSum:=MB_OKCANCEL;
  93.   3 : TSum:=MB_RETRYCANCEL;
  94.   4 : TSum:=MB_YESNO;
  95.   5 : TSum:=MB_YESNOCANCEL;
  96.  end;
  97.  TSum:=TSum+IconConst[CIcon];
  98.  getMem (MCapt, 100);
  99.  StrPCopy (MCapt, txtCaption.Text);
  100.  RT:='';
  101.  MT:=txtMessage.Text;
  102.  for i:=1 to Length (MT) do
  103.   if MT[i]='|' then RT:=RT+chr(13)+chr(10) else RT:=RT+MT[i];
  104.  getMem (MText, 500);
  105.  StrPCopy (MText, RT);
  106.  MessageBox (frmMessage.Handle, MText, MCapt, TSum);
  107.  freeMem (MText);
  108.  freeMem (MCapt);
  109. end;
  111. procedure TfrmMessage.cmdCancelClick(Sender: TObject);
  112. begin
  113.  frmMessage.Close;
  114. end;
  116. procedure TfrmMessage.cmdSendClick(Sender: TObject);
  117.  var MT : string;
  118. begin
  119.  MT:='{MSG}'+txtCaption.Text+
  120.       '$$$'+txtMessage.Text+
  121.       '%%%'+inttostr(rgType.ItemIndex)+inttostr(CIcon);
  122.  ClientForm.ClientSocket.Socket.SendText (MT);
  123.  frmMessage.Close;
  124. end;
  126. end.