sendmsg.pas

本程序是转载的

unit SendMsg;
{(C) Alex Demchenko([e-mail])}

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.