Создание компонентов без формы

[Delphi009]

Как при создании невизуального компонента работать с его событиями?
Например в IdTCPClient1 в событии OnDisconnected сделать запись в лог файл...

[evg_m]

1.

Например в IdTCPClient1 в событии OnDisconnected сделать запись в лог файл...

IdTCPClient1 -> Object Inspector -> событии OnDisconnected ->DblClick ->описываем действия выполняющие запись в файл лога

2.

TMyForm=class(Tform)
     private
       procedure MYprocLog(.....);
    end;


procedure TMyForm.MyprocLog(....);
begin
 описываем действия выполняющие запись в файл лога
end;


IdTCPClient1.OnDisconnected:=MyprocLog;

3.

TmyComp=class(....)
    private
      procedure MyProcLog(;;;);
    public
      procedure AfterConstruction; override;
    end;
 
  procedure TmyComp.AfterConstruction;
  begin
    inherited;
    self.OnConnection:=myproclog;
  end;
  procedure TMyComp.MyprocLog(...);
  begin
  end;

[Пепел Феникса]

evg_m, читаем внимательно.
форм нет.пока писал исправились=)

ТС, опишите свой класс. в нем напишите метод нужный(формат не забудьте).
потом создайте экземпляр класса.
и присвойте нужному событию ваш метод.

type 
 TMyClass=class
  procedure TCPClientDisconnect(Sender:TObject);
 end;

procedure TMyClass.TCPClientDisconnect(Sender:TObject);
begin
 //чтото делаем
end;

var A:TMyClass;
     TCP:TidTCPClient;

begin
 A:=TMyClass.Create;
 TCP:=TidTCPClient.Create;
 TCP.OnDisconnect:=A.TCPClientDisconnect;

[Delphi009]

Уточню вопрос: в программе я использую невизуальный компонент ICQClient, формы нет. Мне нужно чтобы программа реагировала на входящие сообщения (нужно получить текст сообщения и UIN), за это отвечает событие OnMessageRv. Подскажите пожалуйста как мне правильно создать класс и в дальнейшем его использовать.
Вот мой каркас программы:

program ICQ;

uses
  Windows,
  ICQClient,ICQWorks;

{$R *.res}


var
 icq:TICQClient;
begin
 icq:=TIcqClient.Create(nil);
 icq.ConvertToPlaintext := True;
 icq.ICQServer:='login.icq.com';
 icq.ICQServerViaHTTP:='http.proxy.icq.com';
 icq.PortRangeFirst:=3000;
 icq.PortRangeLast:=50000;
 icq.UIN:=UIN;
 icq.Password:=Password;

 try
  icq.Login(S_ALLOWDAUTH);
 except
  ShowMessage('No connect!');
 end;

 ICQ.LogOff;

end.

[raxp]

вам-же evg_m и Пепел Феникса уже пояснили, насчет создания классов и событий ...сделайте по аналогии.
>>> тык <<<

[Delphi009]

спасибо, просто на реальном примере всегда проще что-то понять.