如何做subclass? |
答題得分者是:change.jian
|
jck11
一般會員 發表:6 回覆:3 積分:1 註冊:2006-09-16 發送簡訊給我 |
網路上看到的一個範例 提到做完這個subclass動作後,將無法結束程式 但試不出來,不知何處出了問題 unit Unit1; interface uses type var implementation {$R *.DFM} function NewWndProc(hHwnd, Msg, wParam, lParam: LongWORD): Longint; stdcall; procedure TForm1.Button1Click(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject); end. |
aftcast
站務副站長 發表:81 回覆:1485 積分:1763 註冊:2002-11-21 發送簡訊給我 |
你好,
------
蕭沖 --All ideas are worthless unless implemented-- C++ Builder Delphi Taiwan G+ 社群 http://bit.ly/cbtaiwan |
jck11
一般會員 發表:6 回覆:3 積分:1 註冊:2006-09-16 發送簡訊給我 |
|
aftcast
站務副站長 發表:81 回覆:1485 積分:1763 註冊:2002-11-21 發送簡訊給我 |
|
aftcast
站務副站長 發表:81 回覆:1485 積分:1763 註冊:2002-11-21 發送簡訊給我 |
SORRY, 我沒看清楚!
嗯,照程式看來應該是無法正程結束。但你為何照常結束呢? 可以請問一下你button1裡的onlick是如何的結束程式? 下Application.Terminate? 可以試著把
------
蕭沖 --All ideas are worthless unless implemented-- C++ Builder Delphi Taiwan G+ 社群 http://bit.ly/cbtaiwan |
jck11
一般會員 發表:6 回覆:3 積分:1 註冊:2006-09-16 發送簡訊給我 |
|
aftcast
站務副站長 發表:81 回覆:1485 積分:1763 註冊:2002-11-21 發送簡訊給我 |
對不起,實在看不出來問題在哪兒,又加上我手中沒有delphi可以試。所以只能猜了。 function NewWndProc(hHwnd, Msg, wParam, lParam: LongWORD): Longint; stdcall; 再不行就要請手中用delphi的人來實測幫你了…
------
蕭沖 --All ideas are worthless unless implemented-- C++ Builder Delphi Taiwan G+ 社群 http://bit.ly/cbtaiwan |
jck11
一般會員 發表:6 回覆:3 積分:1 註冊:2006-09-16 發送簡訊給我 |
|
change.jian
版主 發表:29 回覆:620 積分:439 註冊:2003-06-02 發送簡訊給我 |
|
waterful0
一般會員 發表:7 回覆:12 積分:3 註冊:2006-07-12 發送簡訊給我 |
NewWndPro的確是可以subclass掉原有的WndProc, 但為何按下button1還是會將視窗關閉呢?那是因為Close這個由VCL幫我們封裝好的procedure 如果要在按下button1時不將視窗關閉,建議可以在CloseQuery這個事件中編寫你的程式碼來阻止視窗的關閉。 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |