弟兄们帮忙给看看：

[Libran]

1，下载http://61.132.74.87/libran/Project1.zip(很小，6K Byte)，解压，在CB里打开运行
(为兼容用CB4做的，用5、6的哥们儿Update一下应该也没问题)
2，在Form1的DBGrid里双击某一条记录
3，最小化Form3
4，在DBGrid里选其它记录
？？怎么搞？

另外，不知数量、类型的若干控件的OnClick事件调用同一个响应函数OnCtrlClick(TObject* Sender)，如何根据参数Sender得到相应控件并访问其方法、属性？

[huang_jihua]

用Sender->ClassName 或者Sender->ClassNameIs来知道你的类名

[Libran]

用ClassName方法得到了类名，又怎么对Sender进行类型转换？

还有上边那个程序，帮忙看看呀

[Libran]

顶~~~

[kingcaiyao]

我来回答第二个问题：不知数量、类型的若干控件的OnClick事件调用同一个响应函数OnCtrlClick(TObject* Sender)，如何根据参数Sender得到相应控件并访问其方法、属性？
这样来解决：
void __fastcall TForm1::FormCreate(TObject *Sender)
{
for(int i=0;i<ComponentCount;i++)
{
TControl *pControl=dynamic_cast<TControl*>(Components[i]);
if(pControl)
{
pControl->OnClick=ProcessClick;
}
}
}
void __fastcall TForm1::ProcessClick(TObject *Sender)
{
//判断该对象是否有Color属性
TPropInfo *PropInfo;
PropInfo=GetPropInfo((TTypeInfo*)Sender->ClassInfo,"Color");
if(PropInfo)
{
SetOrdProp(Sender,PropInfo,clRed);//如果有Color属性，则将该颜色设置为红色
}
.....
//Other codes 其它代码
}

[Libran]

多谢阿King哥！
不过：
TControl *pControl=dynamic_cast<TControl*>(Components[i]);
if(pControl)
{
pControl->OnClick=ProcessClick;// 这行就过不去呀
}
TControl的OnClick是Protect的，不让访问啊！

[kingcaiyao]

我刚才看了一下Object Pascal的源码，它是在protected域，对于本类而言它是不可以直接访问的。 那就用TWinControl吧,将上面TControl的地方改成TWinControl，因为通常有单击事件的控件差不多都是窗口控件，而TWinControl是所有窗口控件的父类.
void __fastcall TForm1::FormCreate(TObject *Sender)
{
for(int i=0;i<ComponentCount;i++)
{
TWinControl *pControl=dynamic_cast<TWinControl*>(Components[i]);
if(pControl)
{
pControl->OnClick=ProcessClick;
}
}
}
void __fastcall TForm1::ProcessClick(TObject *Sender)
{
//判断该对象是否有Color属性
TPropInfo *PropInfo;
PropInfo=GetPropInfo((TTypeInfo*)Sender->ClassInfo,"Color");
if(PropInfo)
{
SetOrdProp(Sender,PropInfo,clRed);//如果有Color属性，则将该颜色设置为红色
}
.....
//Other codes 其它代码
}

[Libran]

如果是从TGraphicControl继承的呢？
我的意思就是不要用明确的类进行来转换，而根据Sender自身做判断，还原为原来实际的类

[kingcaiyao]

但你要知道从TObject派生下来的类并不是个个都有OnClick事件，所以这里需要指明，加上TGraphicControl,应该这样写：
void __fastcall TForm1::FormCreate(TObject *Sender)
{
for(int i=0;i<ComponentCount;i++)
{
TWinControl *pWinControl=dynamic_cast<TWinControl*>(Components[i]);
TGraphicControl *pGraphicControl=dynamic_cast<TGraphicControl*>(Components[i]);

if(pWinControl)
{
pWinControl->OnClick=ProcessClick;
}
if(pGraphicControl)
{
pGraphicControl->OnClick=ProcessClick;
}

}
}
void __fastcall TForm1::ProcessClick(TObject *Sender)
{
//判断该对象是否有Color属性
TPropInfo *PropInfo;
PropInfo=GetPropInfo((TTypeInfo*)Sender->ClassInfo,"Color");
if(PropInfo)
{
SetOrdProp(Sender,PropInfo,clRed);//如果有Color属性，则将该颜色设置为红色
}
.....
//Other codes 其它代码
}

[huzhangyou]

learning....................................

aking兄考试如何了？

[kingcaiyao]

To huzhangyou:
还没有,我的考试有两个在10月份（其中包括高程），还有一个在12月份，进度还可以，书都看完了，现在主要是看大纲，做习题，谢谢你的关心，谢谢。

[Libran]

对于第二个问题，我要访问的属性和方法，对于具体控件是可用的，但在TControl被声明为Protect，而我又不知道该控件究竟是从TWinControl还是TGraphicControl继承
例如，一个控件可能是TEdit、TLabel、TPanel或其它什么的，要在OnClick里改变其Color的值，怎么把Sender转换为其对应的类型来访问Color属性？
（Color在TControl被声明为Protect）

[dragonhux]

太复杂啦，你不如把想要的东东先描述一下！

[Libran]

哥们儿，TWinControl和TGraphicControl都没实现OnClick事件，用它们和用TControl是一样的
而且，
if(pWinControl)
{
pWinControl->OnClick=ProcessClick;
}
if(pGraphicControl)
{
pGraphicControl->OnClick=ProcessClick;
}
这两个条件不互斥吧，都会执行的
再帮忙想想办法呀