这个应该怎么调用
程序在运行时动态创建多个TcxLabel,对应同一个pmKS : TPopupMenu.

自定义一个更改TcxLabel颜色和HINT的过程.
procedure TfrmFTB.SetHouseProperty(T_cxLable: TcxLabel; HouseState : string);
begin
if houseState = '预留 ' then T_cxLable.Style.Color := clbHouseKS.Style.Color
else ... ;

if HouseState = '预留 ' then begin
T_cxLable.Hint := '...... ';

end;

我想在右击某个TcxLabel,再单击某个PopupMenu的菜单项后调用以上的过程
SetHouseProperty(TcxLabel(pmKS.PopupComponent.Name), '预留 ');

程序在T_cxLable.Style.Color := clbHouseKS.Style.Color出错,不知道调用方法对不对?

[解决办法]
好象没有错。但不知你的出错原因是什么回事,改用其它颜色试下。
[解决办法]
1、这个地方要改：
SetHouseProperty(TcxLabel(pmKS.PopupComponent.Name), '预留 ');
改为：
if FindComponent(pmKS.PopupComponent.Name) <> Nil then
SetHouseProperty(TcxLabel(FindComponent(pmKS.PopupComponent.Name)), '预留 ');
2、这个地方不知要不要改：
如果你是使用TcxColorComboBox,则使用ColorValue这个属性
T_cxLable.Style.Color := clbHouseKS.ColorValue
[解决办法]
嗯,不好意思,没看出来
帮你顶
[解决办法]
调试调试
[解决办法]
学习
[解决办法]
1、SetHouseProperty(TcxLabel(pmKS.PopupComponent.Name), '预留 ');
如果确认调用popupmenu的是TcxLabel那么直接用
SetHouseProperty(TcxLabel(pmKS.PopupComponent), '预留 ');
在函数里判断一下T_cxLable <> nil
不确认则判断一下
if (pmKS.PopupComponent <> nil) and (comparetext(pmKS.PopupComponent.classname, 'TcxLabel ') = 0 )then
SetHouseProperty(TcxLabel(pmKS.PopupComponent), '预留 ');
出错的原因应该是你的T_cxLable值没有正确取到吧