home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / kompon / d3456 / ICQ.ZIP / ICQ / Example / SendMsg.pas < prev    next >
Pascal/Delphi Source File  |  2002-07-03  |  922b  |  48 lines

  1. unit SendMsg;
  2. {(C) Alex Demchenko(alex@ritlabs.com)}
  3.  
  4. interface
  5.  
  6. uses
  7.   Windows, Messages, Classes, Graphics, Controls, Forms,
  8.   StdCtrls, SysUtils, ICQWorks, ComCtrls;
  9.  
  10. type
  11.   TSendMsgForm = class(TForm)
  12.     Button1: TButton;
  13.     RichEdit1: TRichEdit;
  14.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  15.     procedure Button1Click(Sender: TObject);
  16.   private
  17.   public
  18.     FDest: String;
  19.   end;
  20.  
  21. var
  22.   SendMsgForm: TSendMsgForm;
  23.  
  24. implementation
  25. uses
  26.   Main;
  27.  
  28. {$R *.dfm}
  29.  
  30. procedure TSendMsgForm.FormClose(Sender: TObject;
  31.   var Action: TCloseAction);
  32. begin
  33.   Action := caFree;
  34. end;
  35.  
  36. procedure TSendMsgForm.Button1Click(Sender: TObject);
  37. begin
  38.   if not MainForm.ICQClient1.LoggedIn then
  39.   begin
  40.     MessageBox(0, 'Not connected!', 'Error!', MB_ICONERROR);
  41.     Exit;
  42.   end;
  43.   MainForm.ICQClient1.SendMessage(StrToInt(FDest), RichEdit1.Text);
  44.   Close;
  45. end;
  46.  
  47. end.
  48.