How to receive a message with TidIRC in Delphi?

问题

I have the following code so far:

procedure TForm1.FormCreate(Sender: TObject);
begin
FIRC.Host:= '192.168.1.48';
FIRC.Port := 61289;
FIRC.Username:= 'test';
FIRC.Nickname:= 'Test';
FIRC.RealName:= 'TEst';
FIRC.Connect;
FIRC.Join('#Test');
end;

And it will connect fine, but I cannot find on google how to actually receive a message on the channel. How can that be done?

回答1:

TIdIRC has OnPrivateMessage and OnNotice events (amongst many other events).

来源：https://stackoverflow.com/questions/31144263/how-to-receive-a-message-with-tidirc-in-delphi