將MainMenu解到TreeView的正確位置

原创 2007年10月09日 07:45:00
var MTN : array of TTreeNode;
j:integer;
procedure TForm1.MainmenuToTreeView;
procedure MenuAct(m :TMainMenu);
    procedure DoRecursive(t :TMenuItem);
    var ii : integer;
    begin
     for ii := 0 to t.Count-1 do
     begin
        if ii = 0 then
        begin
        MTN[j+1] := TreeView1.Items.AddChild(MTN[j],t.Items[ii].Caption);
        end else
        MTN[j+1] := TreeView1.Items.Add(MTN[j],t.Items[ii].Caption);
        inc(j);
        DoRecursive(t.Items[ii]);
     end;
    end;
var i:Integer;
begin
    if m.Items.Count > 0 then
    for i := 0 to M.Items.Count-1 do
    begin
     MTN[j+1] := TreeView1.Items.Add(MTN[0],m.Items.Items[i].Caption);
     inc(j);
     DoRecursive(m.Items[i]);
    end;
end;

begin
TreeView1.Items.Clear;
setlength(MTN,50);
J := 0;
MenuAct(MainMenu1);
end;

WORD表格如何排序

  • 2012年10月14日 01:19
  • 11KB
  • 下载

無法將工作階段狀態要求送至工作階段狀態伺服器。請確定 ASP.NET 狀態服務已經啟動且用戶端與伺服器的通訊埠都相同。如果伺服器是在遠端電腦上,請檢查 HKEY_LOCAL_MACHINE\SYSTE

無法將工作階段狀態要求送至工作階段狀態伺服器。請確定 ASP.NET 狀態服務已經啟動且用戶端與伺服器的通訊埠都相同。如果伺服器是在遠端電腦上,請檢查  HKEY_LOCAL_MACHINE\SYS...
  • oo_oo_oo
  • oo_oo_oo
  • 2015-01-22 15:32:09
  • 654

[转]NOD32 與 無法將工作階段狀態要求送至工作階段狀態伺服器 NOD32与asp.net 状态服务

本文转自:http://blog.miniasp.com/post/2008/01/NOD32-and-Unable-to-make-the-session-state-request-to-th...
  • freeliver54
  • freeliver54
  • 2009-07-15 13:49:00
  • 561

机器人运动正逆解

http://blog.sina.com.cn/s/blog_131fa47b20102whij.html
  • bladeandmaster88
  • bladeandmaster88
  • 2016-12-05 11:47:20
  • 2193

超簡易簡繁互轉、亂碼轉簡體程式 便攜免安裝版

  • 2011年02月28日 12:24
  • 8.15MB
  • 下载

OpenGL(glut)如何计算fps

Computing Frames per Second How fast is your application really going? Sometimes we make small chang...
  • xiadasong007
  • xiadasong007
  • 2009-12-18 13:19:00
  • 2806

关于概率图的一点理解

什么是概率图,顾名思义,肯定是和概率有关的,它存在的基础是是如何快速利用计算机从看似错综复杂的事物中找出我们想要的答案,而且得保证答案是正确的,那么怎么做呢。如何让一个问题、一堆杂乱的数,以可视化的、...
  • suejl
  • suejl
  • 2015-12-24 14:01:37
  • 430

JAVA提取优酷等视频网址的视频信息

  • 2011年09月13日 17:13
  • 379KB
  • 下载

Android开发之JSON数据的格式问题

你考虑过json数据的结构的正确姿势吗? 可能这个问题根本不需要咱们搞前端开发的去考虑,因为这是后台的事! 可是我却碰到了需要和后台一起商量json数据的格式问题。 简单的说, 先来条错误的j...
  • shine_qstm
  • shine_qstm
  • 2016-06-17 12:10:43
  • 357

ADODB.Connection (0x800A0E7A)找不到提供者,它可能未被正確安裝

    如題。上次同事也遇到了這樣的問題,先重裝了系統,但沒有解決問題。后來重裝了Oracle,問題才得以解決。   在不了解原因的時候,出現這個問題后會讓人感到莫名其妙,因為之前都是可以用的。別人的...
  • studyandhappy
  • studyandhappy
  • 2011-04-15 18:48:00
  • 3697
收藏助手
不良信息举报
您举报文章:將MainMenu解到TreeView的正確位置
举报原因:
原因补充:

(最多只允许输入30个字)