unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus;type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
sysetm1: TMenuItem;
language1: TMenuItem;
english1: TMenuItem;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
sub:Tmenuitem;
i:integer;
str:string;
begin
try
begin
str:='';
sub:=Tmenuitem.Create(self);
//sub.clear;
sub.Caption:='chinese';
for i:=0 to language1.Count-1 do
begin
if Language1.Items[i].Caption='chinese' then
begin
str:='chinese';
break;
end;
end;
if not(str='chinese') then
language1.Add(sub);
end;
finally
showmessage(inttostr(language1.Count));
end;
end;end.
本来language底下就只有一个english子菜单,现在想动态加入多个菜单,但是不想有重复的,这个程序只点button不会重复,但是点下language后,就会重复加chinese直到有6个chinese后停止,为什么呢?
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus;type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
sysetm1: TMenuItem;
language1: TMenuItem;
english1: TMenuItem;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
sub:Tmenuitem;
i:integer;
str:string;
begin
try
begin
str:='';
sub:=Tmenuitem.Create(self);
//sub.clear;
sub.Caption:='chinese';
for i:=0 to language1.Count-1 do
begin
if Language1.Items[i].Caption='chinese' then
begin
str:='chinese';
break;
end;
end;
if not(str='chinese') then
language1.Add(sub);
end;
finally
showmessage(inttostr(language1.Count));
end;
end;end.
本来language底下就只有一个english子菜单,现在想动态加入多个菜单,但是不想有重复的,这个程序只点button不会重复,但是点下language后,就会重复加chinese直到有6个chinese后停止,为什么呢?
解决方案 »
- record类型的数组可以直接赋值吗?
- CSDN的论坛这几天搞什么了??????
- 在线等待,怎么处理这样格式的文本文件!
- 谁用过IP CONTORLS 里的wwDBGrid!求救!都发了2次了
- 希望大家帮帮忙:insertdata parameter ':fanghao_p' not found 什么意思
- 为什么在dbgrid中按向下的键后报错,对应的query是edit状态
- 请教如何创建文件夹的快捷方式,找了半天了,都是创建文件快捷方式的介绍。
- 一个简单的浏览器
- 有什么介绍WINDOWS API的书或资料,大家介绍一下!
- 救急~~~~~~~~~~~~~~~~~~~!!!
- 请问一下如何使用循环清空窗体上的所有的文本框
- 换行
系统自动设置快捷键会改变子菜单的caption?
不明白