procedure TForm1.N4Click(Sender: TObject);
var
i:integer;
begin
for i:=3 to mainmenu1.Items.Items[0].Count-3 do
begin
mainmenu1.Items.Items[0].Items[i].OnClick:=mainmenu1.Items.Items[0].Items[2].OnClick;
end;
self.Close;
end;直接用self.Close; 不是一样运行吗?还有一个button的click事件,用的是:
exe;
这是什么意思,会直接调用TForm1.exe吗?谢谢。。
var
i:integer;
begin
for i:=3 to mainmenu1.Items.Items[0].Count-3 do
begin
mainmenu1.Items.Items[0].Items[i].OnClick:=mainmenu1.Items.Items[0].Items[2].OnClick;
end;
self.Close;
end;直接用self.Close; 不是一样运行吗?还有一个button的click事件,用的是:
exe;
这是什么意思,会直接调用TForm1.exe吗?谢谢。。
解决方案 »
- 文件读取问题急啊、、、!!!
- 给段窗体关闭重新打开的代码
- 请问如何将TQuery中的数据取出来并格式化呢???
- 求助fastreport按类别分页打印
- 如何获得系统时间啊?我只要时分秒!谢谢!
- 怎么在CDS文件上用SQL语句?百思不得,百试不得
- 调查:写Delphi游戏开发程序手记,会去阅读的人有多少~
- 版主,zswang,我刚看了My_first (海浪) 的几个贴子,给的什么分?我没搞懂?
- 对*.INI文件怎么读写,请指教。
- 如果根据句柄获取该程序的窗体边框的高度和宽度?
- listview 如何才能编辑其内容?
- 正在做类似QQ的聊天程序 怎么改变 RxRichEdit中部分字体颜色呢 急用 谢谢了
而且,没有发现有什么函数叫做exe啊。自己定义的???