🚀 go-pugleaf

Thanks.


"Remy Lebeau (TeamB)" <no.spam@no.spam.com> wrote in message
news:41c9b179$1@newsgroups.borland.com...
>
> "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
>
>