我寫了program，然後可以用來從外面拉東西進來，然後form會顯示檔名，然後還有另一個可以讓程式最上層顯示的功能，不過當最上層顯示開啟後，就無法再使用drag功能，即使再把它關閉也沒用，能否請大家看看，要如何修改。 以下附code:

//---------------------------------------------------------------------------
void __fastcall TForm1::OnDropFiles(TWMDropFiles & Msg)
{
        DWORD nFileNameSize=DragQueryFile( (HDROP)Msg.Drop,0,NULL,0);
        char * sFileName=new char[nFileNameSize 1];
        DragQueryFile((HDROP)Msg.Drop,0,sFileName,nFileNameSize 1);
        Label1->Caption =sFileName;
        delete []sFileName;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
        DragAcceptFiles(Handle,true);
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Button1Click(TObject *Sender)
{
 if(onTop==0)
 {
  Form1->FormStyle=fsStayOnTop;
  onTop=1;
  Button1->Caption="fsNormal";
 }
 else
 {Form1->FormStyle=fsNormal;
 onTop=0;
 Button1->Caption="OnTop";
 }
}
//---------------------------------------------------------------------------

感謝提醒，沒看版規真抱歉.. 發表人 - raistlinmiao 於 2005/08/30 15:08:23

您好:    PO程式碼的方式與版規說明請參考下面連結,煩請修改謝謝您的配合 >

似乎改FormStyle會動到Form視窗屬性..你每更改一次就再設一次就好了  

 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 if(onTop==0)
 {
  Form1->FormStyle=fsStayOnTop;
  onTop=1;
  Button1->Caption="fsNormal";
 DragAcceptFiles(Handle,true);
 }
 else
 {Form1->FormStyle=fsNormal;
 onTop=0;
 Button1->Caption="OnTop";
 DragAcceptFiles(Handle,true);
 }
}    

實驗結果真的是如此，感謝您的說明 <(_ _)>