Einzelnen Beitrag anzeigen

Benutzerbild von CodenameCookie
CodenameCookie

Registriert seit: 12. Mai 2005
87 Beiträge
 
Delphi 6 Personal
 
#5

Re: IRC Bot Befehle geben ! *HELP*

  Alt 21. Mai 2005, 19:49
Hallöchen ...

if (pos('!beenden',Content) <> 0) AND (AUser.Nick='chef') then IdIRC1.Disconnect; geht wunderbar TXH! dafür .

nun is meine Frage wie kann ich FormClose mit "!beenden" erreichen?

Delphi-Quellcode:
procedure TForm1.IdIRC1Message(Sender: TObject; AUser: TIdIRCUser;
  AChannel: TIdIRCChannel; Content: String);
begin
if (pos('!quit',Content) <> 0) AND (AUser.Nick='chef') then TForm1.FormClose;
end;
???? .. Vielen Dank im Vorraus
M.
  Mit Zitat antworten Zitat