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 >
Wrap
Pascal/Delphi Source File
|
2002-07-03
|
922b
|
48 lines
unit SendMsg;
{(C) Alex Demchenko(alex@ritlabs.com)}
interface
uses
Windows, Messages, Classes, Graphics, Controls, Forms,
StdCtrls, SysUtils, ICQWorks, ComCtrls;
type
TSendMsgForm = class(TForm)
Button1: TButton;
RichEdit1: TRichEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
private
public
FDest: String;
end;
var
SendMsgForm: TSendMsgForm;
implementation
uses
Main;
{$R *.dfm}
procedure TSendMsgForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TSendMsgForm.Button1Click(Sender: TObject);
begin
if not MainForm.ICQClient1.LoggedIn then
begin
MessageBox(0, 'Not connected!', 'Error!', MB_ICONERROR);
Exit;
end;
MainForm.ICQClient1.SendMessage(StrToInt(FDest), RichEdit1.Text);
Close;
end;
end.