各位好，我在Delphi看到這樣的寫法 procedure UpdateVU(var Msg : TMessage); message WM_USER 123; 有誰可以指點我在BCB中，要如何改寫呢 謝謝各位

引言: 各位好，我在Delphi看到這樣的寫法 procedure UpdateVU(var Msg : TMessage); message WM_USER 123; 有誰可以指點我在BCB中，要如何改寫呢 謝謝各位

billee 你好: 因為並不清楚你上面的 function 是做什麼的?? 所以~~我提供一段有關 > 以下資料載貼自 class="code"> The following code handles a custom message that the application sends to itself when a file is ready for reading. const WM_FILEREADY = WM_USER 2000; void __fastcall TForm1::FormCreate(TObject *Sender) { Application->OnMessage = AppMessage; } void __fastcall TForm1::AppMessage(tagMSG &Msg, bool &Handled) { if (Msg.message == WM_FILEREADY) { Memo1->Lines->LoadFromFile(AnsiString((char *)Msg.lParam)); Handled = true; } /* for all other messages, Handled remains False so that other message handlers can respond */ } -- Enjoy Researching & Developing --

引言:

引言: 各位好，我在Delphi看到這樣的寫法 procedure UpdateVU(var Msg : TMessage); message WM_USER 123; 有誰可以指點我在BCB中，要如何改寫呢 謝謝各位

billee 你好: 因為並不清楚你上面的 function 是做什麼的?? 所以~~我提供一段有關 > 以下資料載貼自 class="code"> The following code handles a custom message that the application sends to itself when a file is ready for reading. const WM_FILEREADY = WM_USER 2000; void __fastcall TForm1::FormCreate(TObject *Sender) { Application->OnMessage = AppMessage; } void __fastcall TForm1::AppMessage(tagMSG &Msg, bool &Handled) { if (Msg.message == WM_FILEREADY) { Memo1->Lines->LoadFromFile(AnsiString((char *)Msg.lParam)); Handled = true; } /* for all other messages, Handled remains False so that other message handlers can respond */ } -- Enjoy Researching & Developing --

謝謝你的協助，我那個function的功用，也是跟你給我的例子類似， 我是因為在改網路上人家提供的一個音樂播放範例，所以會有一些delphi的 語法不是很了解，真的很感謝你，謝謝，我在試試

I don't use BCB now, and here is something I got from a search  < class="code">#define CM_CHANGECOLOR (WM_USER 400) class TMyControl : public TControl { protected: void __fastcall CMChangeColor(TMessage* Message); BEGIN_MESSAGE_MAP MESSAGE_HANDLER(CM_CHANGECOLOR, TMessage, CMChangeColor) END_MESSAGE_MAP(TControl) }; void __fastcall TMyControl::CMChangeColor(TMessage* Message) { Color = Message->LParam; // set color from long parameter TControl::CMChangeColor(Message); // call the inherited message handler }

引言: I don't use BCB now, and here is something I got from a search < class="code">#define CM_CHANGECOLOR (WM_USER 400) class TMyControl : public TControl { protected: void __fastcall CMChangeColor(TMessage* Message); BEGIN_MESSAGE_MAP MESSAGE_HANDLER(CM_CHANGECOLOR, TMessage, CMChangeColor) END_MESSAGE_MAP(TControl) }; void __fastcall TMyControl::CMChangeColor(TMessage* Message) { Color = Message->LParam; // set color from long parameter TControl::CMChangeColor(Message); // call the inherited message handler }

很感謝你的回應，你的答案更接近我的需求，真的謝謝你，^_^

You're welcome 

謝謝 william 兄 讓我又學到了一招 --

------
-- 若您已經得到滿意的答覆，請適時結案!! --
-- 欲知前世因，今生受者是；欲知來世果，今生做者是 --
-- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 --