procedure ShowPanel(const ChildFormPanel,MainFormPanel: TPanel);
var
I,J,intSelectResult:Integer;
panChildPanelName:TPanel;
begin
for I:= 0 to MainFormPanel.ControlCount-1 do
begin
if MainFormPanel.Controls[I].Name = 'panChild' then
begin
panChildPanelName:=(MainFormPanel.controls[I] as TPanel);
intSelectResult:=Messagebox(Application.Handle,
'已经打开了一个页面,是否关闭此页面打开另一页面?',
'错误',20);
if intSelectResult=6 then
begin
for J:=0 to panChildPanelName.ControlCount -1 do
if panChildPanelName.Controls[J].Name='cmdClose' then
(panChildPanelName.Controls[J] as TButton).Click;
end
else
Exit;
end;
end;
ChildFormPanel.Parent := MainFormPanel;
ChildFormPanel.Left := 0;
ChildFormPanel.Top := 0;
end;
请帮我注释一下最好能具体一点有几处很是不明白
var
I,J,intSelectResult:Integer;
panChildPanelName:TPanel;
begin
for I:= 0 to MainFormPanel.ControlCount-1 do
begin
if MainFormPanel.Controls[I].Name = 'panChild' then
begin
panChildPanelName:=(MainFormPanel.controls[I] as TPanel);
intSelectResult:=Messagebox(Application.Handle,
'已经打开了一个页面,是否关闭此页面打开另一页面?',
'错误',20);
if intSelectResult=6 then
begin
for J:=0 to panChildPanelName.ControlCount -1 do
if panChildPanelName.Controls[J].Name='cmdClose' then
(panChildPanelName.Controls[J] as TButton).Click;
end
else
Exit;
end;
end;
ChildFormPanel.Parent := MainFormPanel;
ChildFormPanel.Left := 0;
ChildFormPanel.Top := 0;
end;
请帮我注释一下最好能具体一点有几处很是不明白
解决方案 »
- 请问怎么控制在edit1中输入一个字符,就能查找出数据表中第一个字符符合输入字符的记录?
- delphi多线程
- 我要考研,也想写程序....
- 如何把查询到的结果整合在一起?
- 急!windowsXP下不能安装delphi6的问题(20f)
- 请教一个随机实数问题?
- 怎样打开钱箱,我在pb用PrintSend(JOBS,"~h1B~h70~255~h15~h20",255),到我在d6,就不知道用什么函数替代?格式怎样?我刚学d6,谢谢!
- 使用dbgrid,运行时为何没有触发onDrawColumnCell事件?
- DBgrid的问题,
- 怎样把程序和INTERNET EXPLORER 绑定起来啊
- 如何做:点击窗体关闭按钮时,程序并不关闭,而是缩小到系统托盘里。
- 如何在报表中控制每页只打6条记录 ,而且是打相同的记录.十万火急!!!急急。。。。在线等!!
var
I,J,intSelectResult:Integer;
panChildPanelName:TPanel;
begin
for I:= 0 to MainFormPanel.ControlCount-1 do //遍历MainFormPanel上的所有控件
begin
if MainFormPanel.Controls[I].Name = 'panChild' then //找出控件名为panChild 的控件
begin
panChildPanelName:=(MainFormPanel.controls[I] as TPanel); //将找到的这个panChild控件赋给TPanel变量panChildPanelName暂存
intSelectResult:=Messagebox(Application.Handle,
'已经打开了一个页面,是否关闭此页面打开另一页面?',
'错误',20);
if intSelectResult=6 then
begin
for J:=0 to panChildPanelName.ControlCount -1 do
if panChildPanelName.Controls[J].Name='cmdClose' then
(panChildPanelName.Controls[J] as TButton).Click; //触发按钮名为 cmdClose的单击事件
end
else
Exit;
end;
end;
ChildFormPanel.Parent := MainFormPanel;
ChildFormPanel.Left := 0;
ChildFormPanel.Top := 0;
end;
不知够不够??