全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1425
推到 Plurk!
推到 Facebook!

TMainMenu如何Layout到TForm上特定位置上

缺席
jesson
一般會員


發表:11
回覆:16
積分:5
註冊:2002-04-21

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-04-07 13:36:49 IP:118.165.xxx.xxx 訂閱
小弟趴了一下文章,只找到可將TMainMenu屬性中OwnerDraw設為true
,至於如何使用OnDrawItem與OnMeasureItem Events將TMainMenu放在TForm特定位置上
,就不知如何才能做到,懇請大大給予指教,謝謝!

Design Item:
1個TForm
1個TMainMenu

目的:預設TMainMenu都會在TForm的最上面Layout著(假設left = 0 , top = 0),
期望更改其Layout位置至(left = 0 , top = 50)。
編輯記錄
jesson 重新編輯於 2009-04-07 14:06:28, 註解 無‧
taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#2 引用回覆 回覆 發表時間:2009-04-07 14:06:29 IP:118.169.xxx.xxx 訂閱
看起來PopupMenu比較適合
jesson
一般會員


發表:11
回覆:16
積分:5
註冊:2002-04-21

發送簡訊給我
#3 引用回覆 回覆 發表時間:2009-04-07 14:08:26 IP:118.165.xxx.xxx 訂閱
taishyang 兄 您好:
我也有想過用PopupMenu來試試看,但不知如何將PopupMenu修改成跟TMainMenu一樣?

剛剛我也嘗試用TMainMenu做作看,還是不行!



===================引 用 taishyang 文 章===================
看起來PopupMenu比較適合
編輯記錄
jesson 重新編輯於 2009-04-07 14:12:13, 註解 無‧
taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#4 引用回覆 回覆 發表時間:2009-04-07 14:25:20 IP:118.169.xxx.xxx 訂閱
不知道你說的ㄧ樣是指什麼
讓PopupMenu 顯示在Form上特定位址
TPoint pt;
pt.x = Form1->Left;
pt.y = Form1->Top;
Form1->ScreenToClient(pt);
PopupMenu1->Popup(pt.x 0, pt.y 50);
jesson
一般會員


發表:11
回覆:16
積分:5
註冊:2002-04-21

發送簡訊給我
#5 引用回覆 回覆 發表時間:2009-04-07 17:48:31 IP:118.165.xxx.xxx 訂閱
感謝 taishyang 兄 的回應:

"一樣"指的是 UI呈現與使用效果,是否可以弄成跟TMainMenu一樣



===================引 用 taishyang 文 章===================
不知道你說的ㄧ樣是指什麼
讓PopupMenu 顯示在Form上特定位址
TPoint pt;
pt.x = Form1->Left;
pt.y = Form1->Top;
Form1->ScreenToClient(pt);
PopupMenu1->Popup(pt.x 0, pt.y 50);
系統時間:2024-04-20 4:10:29
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!