delphi 入門之《動態建立選單》
由於在專案中用到動態建立選單的功能，簡單的記錄下，主要是根據json的配置檔案動態的建立選單，用到的有乙個json選單配置檔案，json轉換的工具類superobject，具體的**如下所示：
1、json配置檔案
[choj]
homeurl=
menuurl=
menu=[,]},,]}]2、實現的**
varmenustr: string;
homeurl:string;
menuitem: tmenuitem;
submenuitem: tmenuitem;
json: isuperobject;
menuarray: tsuperarray;
subsenuarray: tsuperarray;
i:integer;
j:integer;
begin
// --- 動態載入選單 start ---
trymenustr:=readinifile('menu');
if varisnull(menustr) then
begin
showmessage('未找到選單配置檔案！');
exit;
end;
json:=so(menustr);// -- 轉為json物件 --
menuarray := json.asarray;
for i:=0 to menuarray.length-1 do
begin
menuitem:= tmenuitem.create(self);
menuitem.caption:=menuarray[i]['name'].asstring;
print_mainmenu.items.add(menuitem);
subsenuarray:= menuarray[i]['children'].asarray;
for j:=0 to subsenuarray.length-1 do
begin
submenuitem:= tmenuitem.create(self);
submenuitem.caption:=subsenuarray[j]['name'].asstring;
submenuitem.hint:=subsenuarray[j]['url'].asstring;
submenuitem.onclick := menuclick;
menuitem.add(submenuitem);
end;
end;
except
showmessage('出現異常!');
end;
// --- 動態載入選單 end ---
end;
動態選單 動態建立選單
動態建立選單 windows應用程式的介面，不僅僅是乙個簡單的窗體，每個窗體中都包含具體實現功 能的控制項，包括能夠顯示基本資訊的label控制項，能夠在其中輸入內容的文字框控制項，能 夠設定選項的選擇按鈕控制項等。net提供了很多使用簡單 功能強大的控制項，幫助程式設 計者快速有效地開發應用軟體。...
用Delphi製作動態選單
所謂動態選單是指選單項隨著程式的操作變化而變化。現在，我們用delphi來實現這一功能，具體步驟如下 1 首先，確定動態選單的資料 即要確定動態選單標題是來自windows的系統登錄檔，還是來自乙個資料庫，或者是來自乙個子目錄，主要由程式的功能而定。這裡假設主視窗名為mainform，上面已有主選單...
Delphi的動態選單實現
這裡所謂的動態選單是指選單項是變化的，它隨程式的操作變化而變化。例如在很多應用程式的 檔案 選單下列出了最近多少次曾經使用過的檔名，這是最常見的動態選單用法，microsoft word 的 檔案 選單就是一例。動態選單的使用為操作應用程式提供了極大的方便。用 delphi 編寫應用程式我們也可以實...