Description: TChatForm = class(TForm)
StatusBar1: TStatusBar
MsgMemo: TMemo
btnSend: TButton
btnCancel: TButton
procedure btnSendClick(Sender: TObject)
procedure btnCancelClick(Sender: TObject)
procedure MsgMemoKeyDown(Sender: TObject var Key: Word
Shift: TShiftState)
private
{ Private declarations }
public
{ Public declarations }
FromIP,RemoteComputName:String
end
To Search:
File list (Check if you may need any files):
neticq\ChatRoomUnit.dcu
......\ChatRoomUnit.dfm
......\ChatRoomUnit.pas
......\ChatUnit.dfm
......\ChatUnit.pas
......\main.dcu
......\main.dfm
......\main.pas
......\NetICQ.cfg
......\NetICQ.dof
......\NetICQ.dpr
......\neticq.exe
......\NetICQ.res
......\neticq.txt
......\NickNameUnit.dcu
......\NickNameUnit.dfm
......\NickNameUnit.pas
......\ReceivedUnit.dcu
......\ReceivedUnit.dfm
......\ReceivedUnit.pas
neticq