🚀 go-pugleaf

"sez" <www@sezginserin.com> wrote in message
news:44952c31$1@newsgroups.borland.com...

> How to create a new mdi child window on the server, when a client
connects?

Since TIdTCPServer is a multi-threaded component, and the OnConnect event
(and any other event handler with a TIdPeerThread parameter) is triggered in
the context of worker threads, you must Synchronize() access with the main
thread in order to access the GUI in a safe manner.

For example:

    void __fastcall TMainForm::CreateMDIChild()
    {
        CreateMDIChild("New Window");
    }

    void __fastcall TMainForm::IdTCPServer1Connect(TIdPeerThread *AThread)
    {
        AThread->Synchronize((TThreadMethod) &CreateMDIChild);
    }

Or:

    class TCreateMDISync : public TIdSync
    {
    public:
        __fastcall TCreateMDISync(TIdBaseThread *AThread)
            : TIdSync(AThread)
        {
        }

        virtual void __fastcall DoSynchronize()
        {
            MainForm->CreateMDIChild("New Window");
        }
    };

    void __fastcall TMainForm::IdTCPServer1Connect(TIdPeerThread *AThread)
    {
        TCreateMDISync *Sync = new TCreateMDISync(AThread);
        try
        {
            Sync->Synchronize();
        }
        __finally {
            delete Sync;
        }
    }


Gambit