如何動態增加工作列 |
尚未結案
|
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做搜尋的關鍵字 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |