[求助]如何动态生成菜单项，谢谢！！ - 编程论坛

#2

season222007-05-09 18:55

procedure Tf_main.N10Click(Sender: TObject);
var
i:integer;
begin
with adoquery1 do
begin
close;
sql.Clear ;
sql.Add('select * from owner');
open;
begin
ADOQuery1.First ;
for i:=1 to ADOQuery1.RecordCount do
begin
MainMenu1.Items[10].Add(TMenuItem.Create(self));
MainMenu1.Items[10].Items[i-1].Name := 'N_10_' + IntToStr(i);
MainMenu1.Items[10].Items[i-1].Caption := ADOQuery1.FieldByName('o_name').AsString;
MainMenu1.Items[10].Items[i-1].OnClick := myclick;
ADOQuery1.Next;
end;

end;
end;
end;

end.
错在哪里?急啊!!!

#3

xiexinxing2007-05-10 09:48

i:integer;
begin
with adoquery1 do
begin
close;
sql.Clear ;
sql.Add('select * from owner');
open;
begin
ADOQuery1.First ;
for i:=1 to
哪来的？

#4

xiexinxing2007-05-10 09:54

for i:=0 to adoquery1.recordcount-1 do
看看

#5

xu20002007-05-10 17:40

有报错吗，拿出来看看。

#6

season222007-05-10 21:16

回复：（season22）[求助]如何动态生成菜单项，谢谢！...

问题解决了 ,是10超出了边界!谢谢各位!!!

#7

xu20002007-05-10 22:25

我就说代码没问题吗。

#8

season222007-05-13 19:27

为什么每运行一次它都会多几个空的菜单?
能不能不要多啊?