各位大大：
小弟在TForm上面放了一個佔滿整個畫面的CppWebBrowser元件，然後把TForm的BorderType設為bsNone(因為小弟要做不規則表單)，但是如此一來便無法用滑鼠拖曳移動整個表單(因為TForm收不到Mouse事件)，而CppWebBrowser元件也沒有Mouse事件可供使用，請問針對這個頭痛問題各位大大是否有方法可以達到小弟的目的呢?!

------
With Best Regards

試試下面的code
.h file
class TForm1 : public TForm
{
__published: // IDE-managed Components
TCppWebBrowser *CppWebBrowser1;
private: // User declarations
void __fastcall WebBrowserWndProc(TMessage& Message);
TWndMethod OldWebBrowserWndProc;
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};

.cpp file
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{

OldWebBrowserWndProc = CppWebBrowser1->WindowProc;
CppWebBrowser1->WindowProc = WebBrowserWndProc;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::WebBrowserWndProc(TMessage& Message)
{
switch (Message.Msg){
case WM_MOUSEMOVE:{
if(Message.WParam == MK_LBUTTON){
ReleaseCapture();
Perform(WM_NCLBUTTONDOWN, HTCAPTION, NULL);
}
}break;
}
OldWebBrowserWndProc(Message);
}

編輯記錄

感謝大大的拔刀相助.........不過.............根據小弟測試的結果......如果CppWebrowser沒有用Navigate方法瀏覽網頁的話(例如CppWebBrowser1->Navigate(L"http://www.pchome.com.tw");)的話是可以拖曳表單沒錯，反之如果有的話............就失效了說........!_!

------
With Best Regards

應該有更好的方式,小弟目前想的方式如下:
.h
class TForm1 : public TForm
{
__published: // IDE-managed Components
TCppWebBrowser *CppWebBrowser1;
void __fastcall FormShow(TObject *Sender);
private: // User declarations
void __fastcall IEMessageHandler(tagMSG &Msg, bool &Handled);
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};

.cpp
TPoint ptCursor;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Application->IEMessageHandler;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
CppWebBrowser1->Navigate(L"http://delphi.ktop.com.tw/board.php");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IEMessageHandler(tagMSG &Msg, bool &Handled)
{
GetCursorPos(&ptCursor);
ptCursor = ScreenToClient(ptCursor);
if (ptCursor.x < Form1->Width-25 &&
ptCursor.y < Form1->Height-25){ //避開scrollbar,這地方要加強
ReleaseCapture();
Perform(WM_NCLBUTTONDOWN, HTCAPTION, NULL);
}
}

編輯記錄

大大的回覆速度實在是太驚人了.........根據小弟的測試結果.....已經可以正確拖曳表單......但是有一點小小的問題....連滑鼠點選超聯結的功能都消失了.....:P
小弟稍微修改了一下大大的程式碼（借花獻佛稍微融合大大的第一版跟第二版）
if (ptCursor.x < this->Width-25 &&
ptCursor.y < this->Height-25 &&
Msg.message == WM_MOUSEMOVE){ //避開scrollbar,這地方要加強
if(Msg.wParam == MK_LBUTTON)
{
ReleaseCapture();
Perform(WM_NCLBUTTONDOWN, HTCAPTION, NULL);
}
}
這樣就不會太趕盡殺絕...:P.......但是還是有不足之處.......假如網頁中有TextBox，那在該TextBox中的滑鼠拖曳選取文字功能也一樣消失，原因應該跟大大講的卷軸問題是同一個......
這一點不知道大大有沒有想法可以改善呢?!

------
With Best Regards

編輯記錄

小弟技窮了,沒用過這元件 ><
RaynorPao 大師應該有辦法:P

大大如此熱心，小弟已經非常感激了.......小弟已經依照您的建議發簡訊給那位大師，再次衷心感謝大大的急公好義阿！！

------
With Best Regards

在HTML页面中：
[code xml]
fucntion TitleBarMouseDownFun()
{
external.titlebar();
}

[/code]

在CppWebBrowser中，

需要实现external的功能，
然后在external 中，写入：
ReleaseCapture();
Perform(WM_SYSCOMMAND, SC_MOVE HTCAPTION, 0);
即可。
关键就是实现external 部分的代码。
网上都有的，您找找看即可。