Drag功能和最上層顯示衝突 |
尚未結案
|
raistlinmiao
一般會員 發表:17 回覆:20 積分:12 註冊:2004-10-22 發送簡訊給我 |
我寫了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 |
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
|
bass15
高階會員 發表:24 回覆:171 積分:119 註冊:2003-10-27 發送簡訊給我 |
似乎改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); } } |
raistlinmiao
一般會員 發表:17 回覆:20 積分:12 註冊:2004-10-22 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |