procedure TMyControl.SetBackColor(Val:TColor);
begin
FBackColor:=Val;
DrawBackColor; //填充组件的背景。
Perform(CM_COLORCHANGED, 0, 0);//通知
end;
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '可用分不够可以给我发短消息';
I.Desire := '加不加分随你';
—————————————————————————————————
begin
FBackColor:=Val;
DrawBackColor; //填充组件的背景。
Perform(CM_COLORCHANGED, 0, 0);//通知
end;
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '可用分不够可以给我发短消息';
I.Desire := '加不加分随你';
—————————————————————————————————
解决方案 »
- 我想在内存中绘图,为什么下面的代码没反应呢?
- 如何从excel导入数据?
- 高手快来帮我看一下,我的文件拷贝功能为什么会出错?
- 有关图片存储的问题?
- delphi4下tclientdataset调用getprovider函数的问题,救急,放500分
- 请问有没有带checkbox的treeview的控件,也就是每个显示名称前有个checkbox的选择?
- 调用 PrinterProperties 设置完打印机属性后,如何立即生效?????
- 关于DELPHI7控制WORD超难问题
- 技术问题中的非技术问题》》》》》
- 请问现在有提交中文搜索引擎的软件吗?如果没有,为什么?
- 请教哪位大侠有用Delphi编写的C语言的编译器?
- Win2000+D6开发MTS,为什么导出组件的时候找不到msi文件?高手啊,显一下神威吧!
如果还是不行的画,可能在你设置值改变后,控件还有自动处理的过程
如果还是不行的画,可能在你设置值改变后,控件还有自动处理的过程
注意不要让系统默认的处理覆盖了你的处理,否则你就白画了
就是通过属性页设置有问题,设置完就启动窗体上的VCL还是原来的样子,除非设置完在拖动一下VCL或调整一下尺寸,再启动就变了,这实在是奇怪。
我的属性页很简单呀,就是给组件赋值。FCom:TMyControl;FCom.TextNum:= ;