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

小

小八哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-29

• #1

我在一窗体中用到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;
我不知说清了没有，万分疑惑，望指点！

 

Y

ysai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-29

• #2

if Components is TPanel then
TPanel(Components).Font.Color:=...;
if Components is TLable then
TLable(Components).Font.Color:=...;

 

小

小八哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-29

• #3

to ysai
我知道panel,dbtext,label是继承自TControl类，但把
TLabel(Components).Font.Color
改成
TControl(Components).Font.Color
编译都通不过。
[Error] Unit3.pas(123): Undeclared identifier: 'Font'
是不是这种运行时出现的属性之类的。我要在编译时把某些开关（选项）关掉。

 

Y

ysai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-29

• #4

在《Delphi 5 开发人员指南》中有个过程是判断控件有没有某个属性

 

Z

zyg_zm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-29

• #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下面，重新编译，不过这种做法不太好啊.........

 

鲁

鲁小班

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-30

• #6

有一个方法可以办到，
你重新定义一个从TControl继承的类
TMyControlAccess = class(TControl);

然后，你就可以这样写：
TMyControlAccess(Components).Font.Color:=...;
就可以了。

 

W

wang2855

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-31

• #7

同意鲁小班的

 

Z

zyg_zm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-31

• #8

楼上鲁班的兄弟，这样也不行吧，按您所说的，从TControl继承下来的类TMyControlAccess其实也是和TGraphicontrol，TWinContrl是
同一级的类，所以小八哥他所有用到的控件都不是TMyConTrolAccess的直接或者间接的派生类，就是说和TMyControl没有血缘关系了，
相当与侄子和叔叔的关系，所以我想也就不能强制转换类了。

 

Z

zyg_zm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-31

• #9

按鲁小班的建议，我写了个例子测试了一下，结果和我说的结果一样
我写了个从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，不信的话可以自己去试试。其实按推理也可以想象到这种结果，我只是为了验证一下

 

鲁

鲁小班

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-31

• #10

zyg_zm:
谁叫你用as了?我前面的帖子也没有用as啊.
as 是强制类型转换,是要类型兼容的,
比如A as B,
只有当B从A继承的时候才能编译通过.

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

还有,在你的tmyctl中不用再在published中重新定义Font.
这样做反而画蛇添足,运行的时候会出错.

 

Z

zyg_zm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-02

• #11

to 鲁小班：
好吧，我去试试看，如果真的是这样的话，好真是个好办法，又多学一招！

 

Z

zyg_zm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-02

• #12

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

>>而B(A)则不同,它是不用类型兼容的,A和B可以
>>没有任何关系.它只是把A指向的指针转换成B.
虽然是这样说,但是用这种方法,你会发现有时候这样写根本就没用......

 

鲁

鲁小班

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-02

• #13

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;

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

 

Z

zyg_zm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #14

》不过，也可以不添加这个声明，效果也是一样的。
真的吗，如果不添加这个声明的话，按照我的理解应该是访问不到这个属性的，所以这里我不太明白。不过我没有去测试过。能讲讲原理吗

 

W

wenhong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #15

up

 

H

hlsl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-05

• #16

其实道理很简单,DELPHI把在同一个单元里面的类都作为"友元",也就是说可以访问非继承类
的Procteded属性.首先声明一个类 TMyControl = class(TControl); ,然后在这个单元内用
这个类转换TControl对象,因为TMyControl由于上面所说的原因,所以在这个单元内部的类都
可以访问TMyControl类的Protected属性.所以,下面这个是合法的
TMyControl(Compinents).Font.Color := clRed;
这是一种访问类的Protected属性的一个技巧.不过Private是绝对不行的啦.

 

Z

zyg_zm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-05

• #17

原来如此，其实我也想到了除非是当作友元函数，可是我总以为作为某个类的友元函数需要申明，象C++的friend.....多谢了，又学一招

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-05

• #18

就这么几种控件，还是分种类处理一下吧。

 

小

小八哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-16

• #19

因为有些事很多天没来了。
我试用了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）没有效果，不知如何
改进。

 

一

一个过客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-16

• #20

真是脱裤子放屁--多此一举！

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

TEdit(Label1).color:=clred;