各位好: 基於http://delphi.ktop.com.tw/topic.php?topic_id=37720 小弟想把它轉成BCB版本,卻是不得其門而入 小弟做法如下: class="code"> .h區 public: // User declarations void __fastcall WndProc(TMessage &Message); .cpp區 void __fastcall TForm1::WndProc(TMessage &Message) { if (Message.Msg == WM_NCHITTEST) { if (HTCLIENT == Message.Result) Message.Result = HTCAPTION; } TForm::WndProc(Message); } 小弟認為這跟jackkcg大大的原理應該是相同的,可是執行結果仍然無法拖動表單... 請教各位看倌該如何修正呢? 謝謝各位看倌 程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~ 發表人 -

------
程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~

去查查 透明vcl 或相關資料看是否合用 有個 酷兒form vcl 不錯用 這網站也可以去看看 不過與你的問題 可能差之千里 http://www.d1.dion.ne.jp/~aide/deltips/

ENIX007你好，試試以下的程式如何?              我是過OK!!    

 
public:                // User declarations
        __fastcall TForm1(TComponent* Owner);
        void __fastcall OnNcHitTest(TMessage& Msg);            
        BEGIN_MESSAGE_MAP             MESSAGE_HANDLER(WM_NCHITTEST,TMessage,OnNcHitTest)            END_MESSAGE_MAP(TForm)    /////
void __fastcall TForm1::OnNcHitTest(TMessage& Msg)
{     TPoint pt;
 RECT rc;     pt.x=LOWORD(Msg.LParam);     pt.y=HIWORD(Msg.LParam);     pt =ScreenToClient(pt);         SetRect(&rc,0,0,ClientWidth,ClientHeight);     if (PtInRect(&rc,pt))      Msg.Result = HTCAPTION;     else      DefaultHandler(&Msg);    }

發表人 - taishyang 於 2004/01/05 13:35:49

TO AB兄: 能否再冒昧請問何謂"透明vcl"與"酷兒form vcl" 我用 > 也感謝您介紹網站,日文我是不怕,不過 > 要達到這個功能, > 程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~

------
程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~

ENIX007不客氣,你也幫了我不少忙!!

最簡單的 BCB 實現方式請參考：http://delphi.ktop.com.tw/topic.php?TOPIC_ID=50295  發表人 -

感謝Londer大大 原來BCB也有這麼短的寫法... 如果能有原理就更好了 小弟查了一下 > 程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~

------
程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~