var
i:Integer;
begin
for i:=0 to MainMenu1.Items.Count-1 do
begin
ComboBox1.Items.Add(MainMenu1.Items[i].Caption);
end;
end;
i:Integer;
begin
for i:=0 to MainMenu1.Items.Count-1 do
begin
ComboBox1.Items.Add(MainMenu1.Items[i].Caption);
end;
end;
解决方案 »
- 关于is 的用法,一直没有完全搞明白?
- 请教一个简单问题,关于控件的创建,但是偶没搞明白
- delphi中如何在运行时创建临时表,具体请看正文,谢谢!
- 关于 delphi6 自带的 quickreport 的 TQRDBText 控件 遇到中文时不能换行的问题??????????????????? 急!!!!
- Delphi如何实现文件关联
- 急,高手帮我解决这个问题?
- 如何让Winfax(v10.0)发emf图形格式的文件?(不是作为附件形式)
- 哪里有delphi OOP设计方面的资料?
- 请推荐串口通讯控件(能在Delphi5中使用)!!!!谢谢!!!
- select 分组求和问题
- 怎么才能给Listview中的每一行都加一个图标,怎样引用Listview中每一行???
- 怎样取得当前局域网中提供sqlserver服务的服务器名?
var
i:Integer;
begin
for i:=0 to MainMenu1.Items.Count-1 do
begin
ComboBox1.Items.Add(MainMenu1.Items[i].Caption);
end;
end;
begin
for i:=0 to MainMenu1.Items.Count-1 do
begin
listbox1.Items.Add(MainMenu1.Items[i].Caption);
for j:=0 to MainMenu1.Items[i].Count-1 do
ListBox1.Items.Add(MainMenu1.Items[i].Items[j].Caption);
end;
end;