组件动态遍历，RTL信息万分疑惑，望指点！(50分)

  • 主题发起人 小八哥
  • 开始时间
小

小八哥

Unregistered / Unconfirmed
GUEST, unregistred user!
我在一窗体中用到Panel（其中有六个Label),DBText,Label等组件，
想实现的目标是在程序运行过程中当我鼠标点击任一组件时，
该组件颜色变红（Panel与其中的Label看成一个组件）。
当我又点击另一组件时，这时的组件变红，上次点击的组件变回原色。
即在任意时刻只有一个组件的颜色是红色。我的代码如下
for i:=0 to ComponentCount-1 do
　begin
　　if Components.Name=TComponent(Sender).Name
　then TLabel(Components).Font.Color:=clred
　　else if (Components is TLabel) then TLabel(Components).Font.Color:=clBlack;
　end;
我这代码是错误的在then TLabel(Components).Font.Color:=clred
这句中我不知用什么类来产生panel,dbtext,label的公有.font.color所以用了TLabel类，
运行发现对Panel无用。

下面这行代码更是不行了， 只有对label有效。
else if (Components is TLabel) then TLabel(Components).Font.Color:=clBlack;
我不知说清了没有，万分疑惑，望指点！
 
if Components is TPanel then
TPanel(Components).Font.Color:=...;
if Components is TLable then
TLable(Components).Font.Color:=...;
 
to ysai
我知道panel,dbtext,label是继承自TControl类，但把
TLabel(Components).Font.Color
改成
TControl(Components).Font.Color
编译都通不过。
[Error] Unit3.pas(123): Undeclared identifier: 'Font'
是不是这种运行时出现的属性之类的。我要在编译时把某些开关（选项）关掉。
 
在《Delphi 5 开发人员指南》中有个过程是判断控件有没有某个属性
 
Font是TControl的属性，但是它被protected了，所以外部不能访问，由TControl派生下来的TGraphiControl就可以访问Font了，TLabel是间接继承TGraphiControl的类，
而TPanel是间接继承TWinControl的类，TWinControl也可以访问Font属性，TWinControl和TGraphiControl是同一级别的类，都由TControl派生。

如果你所用到的控件都由TGraphiControl派生下来的话，你可以用TGraphiControl().Font
而若是都由TWinControl派生下来的话，你可以用TWinControl().Font,但是你偏偏分别用到这两个，而再往上一级的话，Font就被protected了，不能访问。

这样的话，想用同一种类来强制转换的话，好象不行吧，最好把控件换一下。换成由同一种类派生的。

或者........,改delphi的源代码，把类TControl的Font属性放在Public下面，重新编译，不过这种做法不太好啊.........
 
有一个方法可以办到，
你重新定义一个从TControl继承的类
TMyControlAccess = class(TControl);

然后，你就可以这样写：
TMyControlAccess(Components).Font.Color:=...;
就可以了。
 
同意鲁小班的
 
楼上鲁班的兄弟，这样也不行吧，按您所说的，从TControl继承下来的类TMyControlAccess其实也是和TGraphicontrol，TWinContrl是
同一级的类，所以小八哥他所有用到的控件都不是TMyConTrolAccess的直接或者间接的派生类，就是说和TMyControl没有血缘关系了，
相当与侄子和叔叔的关系，所以我想也就不能强制转换类了。
 
按鲁小班的建议，我写了个例子测试了一下，结果和我说的结果一样
我写了个从TControl继承的tmyctl,并且将他的Font放在publish下，使font可供访问。
结果我在程序中写
(Label1 as tmyctl).Font.Color:=clred;
这时编译通不过，Incompatible types: 'tmyctl' and 'TLabel'，（不兼容的类型，tmyctl 和 tlabel）

而我在事件中写下面一句：
(Sender as tmyctl).Font.Color:=clred;
编译运行以后，报错'inviald class typecast '(无效的类转换)

wang2855，不信的话可以自己去试试。其实按推理也可以想象到这种结果，我只是为了验证一下
 
zyg_zm:
谁叫你用as了?我前面的帖子也没有用as啊.
as 是强制类型转换,是要类型兼容的,
比如A as B,
只有当B从A继承的时候才能编译通过.

而B(A)则不同,它是不用类型兼容的,A和B可以
没有任何关系.它只是把A指向的指针转换成B.

还有,在你的tmyctl中不用再在published中重新定义Font.
这样做反而画蛇添足,运行的时候会出错.
 
to 鲁小班：
好吧，我去试试看，如果真的是这样的话，好真是个好办法，又多学一招！
 
不好意思，原来TWinControl和TGraphicControl的Font属性并没有公布出来，也是不可访问的，上次我看错了就发言了，罪过罪过...
另外，
to 鲁小班
>> 还有,在你的tmyctl中不用再在published中重新定义Font.这样做反而画蛇添足,运行的时候会出错
TControl的font是在protected下的，我在Tmyctl中只是把他声明为published，否则你根本就不能访问这个属性，无论你用什么转换都没用的.
所以不能说是画蛇添足,而是必要的,否则编译都通不过,至于运行时要出错的话,那是别的原因....找找吧，其实我前面分析的都是按照类的定义来看的，应该不会有很低级的错误。

>>而B(A)则不同,它是不用类型兼容的,A和B可以
>>没有任何关系.它只是把A指向的指针转换成B.
虽然是这样说,但是用这种方法,你会发现有时候这样写根本就没用......
 
zyg_zm:
其实这个方法在VCL源代码中也是有应用的，
请参看VCL源文件ComCtrls.pas第16737行(Delphi5)。

to 鲁小班
>> 还有,在你的tmyctl中不用再在published中重新定义Font.这样做反而画蛇添足,运行的时候会出错
TControl的font是在protected下的，我在Tmyctl中只是把他声明为published，否则你根本就不能访问这个属性，无论你用什么转换都没用的.
所以不能说是画蛇添足,而是必要的,否则编译都通不过,至于运行时要出错的话,那是别的原因....找找吧，其实我前面分析的都是按照类的定义来看的，应该不会有很低级的错误。

谢谢你的提醒，确实是我的错误，我在published中这样定义Font：
published
property Font: TFont;
这样它就重新又定义了一个字段Font,这个Font和TControl中的Font是不一样的，
所以在访问这个字段的时候会出现非法操作。

如果这样写就正确了：
published
property Font;

不过，也可以不添加这个声明，效果也是一样的。

 
》不过，也可以不添加这个声明，效果也是一样的。
真的吗，如果不添加这个声明的话，按照我的理解应该是访问不到这个属性的，所以这里我不太明白。不过我没有去测试过。能讲讲原理吗
 
其实道理很简单,DELPHI把在同一个单元里面的类都作为"友元",也就是说可以访问非继承类
的Procteded属性.首先声明一个类 TMyControl = class(TControl); ,然后在这个单元内用
这个类转换TControl对象,因为TMyControl由于上面所说的原因,所以在这个单元内部的类都
可以访问TMyControl类的Protected属性.所以,下面这个是合法的
TMyControl(Compinents).Font.Color := clRed;
这是一种访问类的Protected属性的一个技巧.不过Private是绝对不行的啦.
 
原来如此，其实我也想到了除非是当作友元函数，可是我总以为作为某个类的友元函数需要申明，象C++的friend.....多谢了，又学一招
 
就这么几种控件，还是分种类处理一下吧。
 
因为有些事很多天没来了。
我试用了hlsl的方法，先在type中声明
TMyControl = class(TControl);
后在程序中改为如下代码
for i:=0 to ComponentCount-1 do
if Components.Name=TComponent(Sender).Name
then
TMyControl(Components).Font.Color:=clRed
else TMyControl(Components).Font.Color:=clBlack
end;
编译通过，但在运行时我点选一个控件时，
就出错。
"Access violation at address 00428AB1 in module 'project1.exe'. Read of address ffffffff"
确定以后程序仍能运行。
另外一个问题，用我程序的方法对panel(上面放了几个label）没有效果，不知如何
改进。
 
真是脱裤子放屁--多此一举！

只要是共同拥有的属性，用什么玩艺做强制类型转换都可以，比如：

TEdit(Label1).color:=clred;
 
您必须登录或注册才可回复。

Similar threads

F
300分的高难问题：如何通过Taborder来遍历某一类型的控件？(300分)
回复
6
查看
155
forgot2002
F
X
已知一个组件的name 或 caption 如何找到这个组件并给它的某个属性赋值?(50分)
回复
6
查看
167
xuxincheng
X
Q
复合组件问题（在线等待，急救）(40分)
回复
4
查看
128
qddmh
Q
Y
我写的一个构件，继承于tLabel,想实现在鼠标在文字上方时鼠标为crHandPoint,链接为红色.....(100分)
回复
4
查看
104
ynfly
Y
白
问一个问题：如何才能遍历PageControl容器组件上的所有的控件？？和Panel操作不同！！(100分)
回复
6
查看
165
白衣书生
白
顶部