🚀 go-pugleaf

"Elias Berelian" <eliasb@voyager.snetnsa.com> wrote in message
news:41c9af28@newsgroups.borland.com...

> I guess I was subclassing the main form. I copied the idea from
> the following. Except in this case they are subclassing a Memo.

That is a significant difference.

> What should I do to be able to accept files anywhere on the form?

I already told you what to do - override the WndProc() method instead of
using the WindowProc property.


    --- header ---

    protected:
        void __fastcall CreateWnd();
        void __fastcall DestroyWnd();
        void __fastcall WndProc(TMessage &Msg);


    --- source ---

    void __fastcall TForm1::CreateWnd()
    {
        TForm::CreateWnd();
        if( HandleAllocated() )
            DragAcceptFiles(Handle, TRUE);
    }

    void __fastcall TForm1::DestroyWnd()
    {
        if( HandleAllocated() )
            DragAcceptFiles(Handle, FALSE);
        TForm::DestroyWnd();
    }

    void __fastcall TForm1::WndProc(TMessage &Msg)
    {
        if( Msg.Msg == WM_DROPFILES )
        {
            int num_files = DragQueryFile((HDROP)Msg.WParam, 0xFFFFFFFF,
NULL, NULL);
            if( num_files == 1 )
            {
                int NameLength = DragQueryFile((HDROP)Msg.WParam, 0, NULL,
NULL);

                char *FileName = new char[NameLength];
                DragQueryFile((HDROP)Msg.WParam, 0, FileName, NameLength);

                Memo1->Lines->LoadFromFile(FileName);
                delete[] FileName;
            }
            else
                ShowMessage("too many files!");

            DragFinish((HDROP)Msg.WParam);
            Msg.Result = 0;
            return;
        }

        TForm::WndProc(Msg);
    }


Gambit