获取菜单所有ID procedure TForm1.Button1Click(Sender: TObject); var i,j: Integer; begin for i:=0 to mnu.Items.Count-1 do begin Memo1.Lines.Add(mnu.Items.Items[i].GetNamePath); for j:=0 to mnu.Items.Items[i].Count-1 do begin Memo1.Lines.Add(mnu.Items.Items[i].Items[j].GetNamePath); end; end; end; 你想怎么操作?
procedure TForm1.Button1Click(Sender: TObject);
var
i,j: Integer;
begin
for i:=0 to mnu.Items.Count-1 do
begin
Memo1.Lines.Add(mnu.Items.Items[i].GetNamePath);
for j:=0 to mnu.Items.Items[i].Count-1 do
begin
Memo1.Lines.Add(mnu.Items.Items[i].Items[j].GetNamePath);
end;
end;
end;
你想怎么操作?
那可不行 程序必须读懂老外的文章,偶们的DELPHI也是BORLAND公司的
不是中国人做出来(现在还没这个水平)所以去看DELPHI的帮助文件中有讲?是要这个吗?