請問有關於Delphi的message用法 |
答題得分者是:RaynorPao
|
billlee
一般會員 發表:31 回覆:46 積分:15 註冊:2002-06-25 發送簡訊給我 |
|
RaynorPao
版主 發表: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
一般會員 發表:31 回覆:46 積分:15 註冊:2002-06-25 發送簡訊給我 |
引言:謝謝你的協助,我那個function的功用,也是跟你給我的例子類似, 我是因為在改網路上人家提供的一個音樂播放範例,所以會有一些delphi的 語法不是很了解,真的很感謝你,謝謝,我在試試引言: 各位好,我在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 -- |
william
版主 發表: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
一般會員 發表: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
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
|
RaynorPao
版主 發表:139 回覆:3622 積分:7025 註冊:2002-08-12 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |