procedure TFrmMain.SetPnlvisible(Pnl: TPanel; IsShow: Boolean);
var
i: Integer;
begin
for i := 0 to left.ControlCount - 1 do
if left.Controls[i] is TPanel then
if (left.Controls[i].Name <> Pnl.Name) and (left.Controls[i].Name <> 'Panel1') then
left.Controls[i].Visible := not IsShow;
Pnl.Visible := IsShow;有点看不懂这个遍历,谁来讲讲,简单详细点。
var
i: Integer;
begin
for i := 0 to left.ControlCount - 1 do
if left.Controls[i] is TPanel then
if (left.Controls[i].Name <> Pnl.Name) and (left.Controls[i].Name <> 'Panel1') then
left.Controls[i].Visible := not IsShow;
Pnl.Visible := IsShow;有点看不懂这个遍历,谁来讲讲,简单详细点。
解决方案 »
- 为什么AnsiContainsText('800002', '2')结果是False
- delphi下调用c写的dll老是出错
- 如何将目录下的的文件完全路径加文件名生成一个文件?
- 有KTV点播系统低价出售源码(¥300.00)!用的是神龙DVD解压
- 如何通过ADOCommand的Parameter输入Datetime字段
- 得到的代码在编译的时候说我缺少文件,可以告诉我怎么回事吗?
- 请问Delphi是否可以使用应用服务器中的EJB?
- 学习SPY++
- 怎么判断ADODataSet1.Connection是否赋值??
- Windows程序退出时..Help!
- 用TImage控件做背景图片 ,如何让绘制的图像显示在上面
- 程序部署问题:数据库初始化失败
如果是tpanel,就判断他的name是不是pn1的name,并且是不是'Panel1',如果两个条件满足,就将其visible设置为IsShow的反值
这个循环可以说一下吗,从0到-1