billlee
一般會員
![](./myimg/board/mystar_empty.gif)
![](images/icon_photo_none.gif) 發表:31 回覆:46 積分:15 註冊:2002-06-25
發送簡訊給我
|
各位好,我在Delphi看到這樣的寫法
procedure UpdateVU(var Msg : TMessage); message WM_USER 123;
有誰可以指點我在BCB中,要如何改寫呢
謝謝各位
|
RaynorPao
版主
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](http://delphi.ktop.com.tw/download.php?download=upload/48c9d66ac5033_KTOP-%E5%8C%85%E5%AD%90%28%E7%9C%BC%E9%8F%A1%29-Q-100x100.jpg) 發表:139 回覆:3622 積分:7025 註冊:2002-08-12
發送簡訊給我
|
引言:
各位好,我在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 --
------ -- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
|
billlee
一般會員
![](./myimg/board/mystar_empty.gif)
![](images/icon_photo_none.gif) 發表:31 回覆:46 積分:15 註冊:2002-06-25
發送簡訊給我
|
引言:
引言:
各位好,我在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的
語法不是很了解,真的很感謝你,謝謝,我在試試
|
william
版主
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](http://www.gravatar.com/avatar/5f266875148cbceca4190890ba363211?s=80) 發表:66 回覆:2535 積分:3048 註冊:2002-07-11
發送簡訊給我
|
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
}
|
billlee
一般會員
![](./myimg/board/mystar_empty.gif)
![](images/icon_photo_none.gif) 發表:31 回覆:46 積分:15 註冊:2002-06-25
發送簡訊給我
|
引言:
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
}
很感謝你的回應,你的答案更接近我的需求,真的謝謝你,^_^
|
william
版主
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](http://www.gravatar.com/avatar/5f266875148cbceca4190890ba363211?s=80) 發表:66 回覆:2535 積分:3048 註冊:2002-07-11
發送簡訊給我
|
You're welcome
|
RaynorPao
版主
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](http://delphi.ktop.com.tw/download.php?download=upload/48c9d66ac5033_KTOP-%E5%8C%85%E5%AD%90%28%E7%9C%BC%E9%8F%A1%29-Q-100x100.jpg) 發表:139 回覆:3622 積分:7025 註冊:2002-08-12
發送簡訊給我
|
謝謝 william 兄
讓我又學到了一招 ![]() --
------ -- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
|