如何動態增加工作列 |
|
尚未結案
|
|
don750421
一般會員   發表：11 回覆：12 積分：4 註冊：2012-09-27 發送簡訊給我 |
請問一下，如何動態增加工作列呢??
我的工作列表大概如圖 http://ppt.cc/A5So 我想在程式開起來前，先去資料庫抓取目前現有的資料.. 假設會有H1601、H1602、H1603、H1605 請問我要辦法動態增加變成如下嗎?? 主控端設定┌H1601 ├H1602 ├H1603 └H1605 |
|
老大仔
尊榮會員  發表：78 回覆：837 積分：1088 註冊：2006-07-06 發送簡訊給我 |
delphi.ktop.com.tw/board.php
或用MainMenu做搜尋的關鍵字 ===================引 用 don750421 文 章=================== 請問一下，如何動態增加工作列呢?? 我的工作列表大概如圖 http://ppt.cc/A5So 我想在程式開起來前，先去資料庫抓取目前現有的資料.. 假設會有H1601、H1602、H1603、H1605 請問我要辦法動態增加變成如下嗎?? 主控端設定┌H1601 ├H1602 ├H1603 └H1605 |
|
don750421
一般會員 發表：11 回覆：12 積分：4 註冊：2012-09-27 發送簡訊給我 |
再詢問一下，我已經可以透過資料庫抓到的資料來動態新增選項 但是，我要如何去擷取使用者Click的項目呢?? 例如使用者按下"H1601".. [code cpp] //--------------------------------------------------------------------------- __fastcall TMainForm::TMainForm(TComponent* Owner) : TForm(Owner) { //連結資料庫，略... if(0 != cv_OraQuery->RecordCount) { while (!cv_OraQuery->Eof) { TMenuItem *HostItem = new TMenuItem(HostSetup); HostItem->Caption = cv_OraQuery->FieldByName("HOST")->AsString; HostItem->Click() = MenuItemClick; HostSetup->Add(HostItem); cv_OraQuery->Next(); } } } //---------------------------------------------------------------------------- void __fastcall TMainForm::MenuItemClick(TObject *Sender) { ; } //---------------------------------------------------------------------------- [/code] ===================引 用 老大仔 文 章=================== delphi.ktop.com.tw/board.php 或用MainMenu做搜尋的關鍵字 ===================引 用 don750421 文 章=================== 請問一下，如何動態增加工作列呢?? 我的工作列表大概如圖 http://ppt.cc/A5So 我想在程式開起來前，先去資料庫抓取目前現有的資料.. 假設會有H1601、H1602、H1603、H1605 請問我要辦法動態增加變成如下嗎?? 主控端設定┌H1601 ├H1602 ├H1603 └H1605 |
|
老大仔
尊榮會員 發表：78 回覆：837 積分：1088 註冊：2006-07-06 發送簡訊給我 |
請問~您爬文了嗎?
delphi.ktop.com.tw/board.php 這文章也是搜尋來的 雖然是Delphi Code 但事件的指向應該差不多 這類的問題只要用搜尋就能找到相關解法 請善加利用搜尋功能~ ===================引 用 don750421 文 章=================== 再詢問一下，我已經可以透過資料庫抓到的資料來動態新增選項 但是，我要如何去擷取使用者Click的項目呢?? 例如使用者按下"H1601".. [code cpp] //--------------------------------------------------------------------------- __fastcall TMainForm::TMainForm(TComponent* Owner) : TForm(Owner) { //連結資料庫，略... if(0 != cv_OraQuery->RecordCount) { while (!cv_OraQuery->Eof) { TMenuItem *HostItem = new TMenuItem(HostSetup); HostItem->Caption = cv_OraQuery->FieldByName("HOST")->AsString; HostItem->Click() = MenuItemClick; HostSetup->Add(HostItem); cv_OraQuery->Next(); } } } //---------------------------------------------------------------------------- void __fastcall TMainForm::MenuItemClick(TObject *Sender) { ; } //---------------------------------------------------------------------------- [/code] ===================引 用 老大仔 文 章=================== delphi.ktop.com.tw/board.php 或用MainMenu做搜尋的關鍵字 |
發表時間：2013-03-20 22:31:27
IP:114.47.xxx.xxx 訂閱
系統時間：2024-04-25 15:02:29
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |