一个消息提示托盘程序的开发历程（采用socket技术，附源代码）三－－－客户端源代码[3]

        void __fastcall editserverdblclick(tobject *sender);
private:
        bool ispass;

public:
        bool __fastcall getispass();  // user declarations
        __fastcall tloginform(tcomponent* owner);
};

//---------------------------------------------------------------------------
extern package tloginform *loginform;
extern string username;     //用户
extern string serverip;
extern int port;
extern string misurl;   
//---------------------------------------------------------------------------
#endif

登陆成功后，进入任务监听：
unit1.cpp
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "unit1.h"
#include "unit2.h"
#include "unit3.h"
#include "msg.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "trayicon"
#pragma resource "*.dfm"
tform1 *form1;
tlist *msglist = new tlist;
//---------------------------------------------------------------------------
__fastcall tform1::tform1(tcomponent* owner)
        : tform(owner)
{

        iscall=false;
        if(serverip.length()>0){
                server=serverip;
                clientsocket1->host=server;
                clientsocket1->port=port;
                clientsocket1->active=true;
                btnconnect->enabled=false;
                btndisconnect->enabled=true;
        }else{
        application->terminate();
        }

        stringgrid1->defaultcolwidth=50;
        stringgrid1->colwidths[2]=600;
        stringgrid1->colwidths[3]=100;
        groupbox1->caption=username+"的任务列表";
        stringgrid1->cells[0][0]="消息id";
        stringgrid1->cells[1][0]="负责人";
        stringgrid1->cells[2][0]="任务名称";
        stringgrid1->cells[3][0]="时间";

}
//---------------------------------------------------------------------------
void __fastcall tform1::n2click(tobject *sender)
{
        application->terminate();       
}
//---------------------------------------------------------------------------

void __fastcall tform1::trayicon1click(tobject *sender)
{

 if(iscall==true){
   iscall=false;
   trayicon1->iconindex=0;
   }
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------

void __fastcall tform1::timer2timer(tobject *sender)
{

  if((iscall==true)){
  trayicon1->iconindex=(gettickcount()/500)%2;
  }

}
//---------------------------------------------------------------------------

void __fastcall tform1::btnconnectclick(tobject *sender)
{
if(inputquery("连接到服务器","输入服务器地址:",serverip)){
         if(inet_addr(serverip.c_str())==0xffffffff){
              application->messagebox("ip地址设置有错,请重新设置.",null,mb_ok);
            }
         else{
            clientsocket1->host=serverip;
            clientsocket1->active=true;
            btnconnect->enabled=false;