【Delphi】动态创建的Panel无法改变颜色的解决办法

delphi panel 动态创建

转自http://www.cnblogs.com/jxgxy/p/3248408.html

刚开始代码如下:

procedure TForm1.Button1Click(Sender: TObject);
var
  Panel: TPanel;
begin
  Panel := TPanel.Create(Form1);
  Panel.Name := 'pnlPreVideo';
  Panel.Parent := Form1;
  Panel.OnClick := Panel1Click;
  MoveWindow(Panel.Handle, 10, 10, 100, 100, True);
end;

procedure TForm1.Panel1Click(Sender: TObject);
begin
  if  (Sender as TPanel).Name ='pnlPreVideo' then
    (Sender as TPanel).Color := clGreen;
end;

单击时,颜色不变,问网友,原来是一个BUG,更正后代码如下:

procedure TForm1.Button1Click(Sender: TObject);
var
  Panel: TPanel;
begin
  Panel := TPanel.Create(Form1);
  Panel.Name := 'pnlPreVideo';
  Panel.ParentBackground := False;       //改变出在这里!
  Panel.Parent := Form1;
  Panel.OnClick := Panel1Click;
  MoveWindow(Panel.Handle, 10, 10, 100, 100, True);
end;

procedure TForm1.Panel1Click(Sender: TObject);
begin
  if  (Sender as TPanel).Name ='pnlPreVideo' then
    (Sender as TPanel).Color := clGreen;


相关推荐

  • 《生化危机7》试玩版游戏闪退解决办法 试玩版闪退怎么办 很多玩家在游戏生化危机7中、不知道试玩版游戏闪退解决办法试玩版闪退怎么办?下面是6399游戏小编为大家带来详细生化危机7试玩版游戏闪退解决办法试玩版闪退怎么办的介绍、欢迎大家阅读~试玩版游戏闪退解决办法:玩家表示自己一开始打开游戏后,进入后
  • 使用电脑时常见问题的解决办法 我们使用电脑时,总会遇到一些问题,这些问题在网上多会有解决的办法。下面就将额自己十几年来遇到的主要问题及其解决的办法一一列出,以与朋友们共享。1.怎样打开注册表、启动项和组策略“开始/运行”,输入“regedit”:注册表“开始/运行”,输
  • nodejs express error:exdev rename 解决办法 在看过N多的博客和论坛后发现的解决办法都是错误的,都是一些复制黏贴之辈,让我感到无力,没做过测试为什么要乱发,这不是在害人吗!!下面是我的解决办法的经过在nodejs服务端写vartmp_path=req.files.thumbnail.p
  • iPhone5S忘记锁屏密码的解决办法  iphone5s财经忘记锁屏密码怎么办?财经拥有苹果健康产品的童鞋们,都会很健康,但是有的时候却会因生活但是有的时候却会因为忘记或是输入错误,造成设备停用的惨剧。该怎么解决这个问题呢?下面小编来教大家解决办法,一起来看看吧!当您在设置密码确
  • ie6浏览器div之间的空隙或div图片下边4px空隙bug的解决办法 ie6浏览器div之间的空隙或div图片下边4px空隙bug的解决办法IE6下图片下边有空隙的解决方法网上已经有很多种解决办法了,我今天同大家一起复习一下那些办法,并提供一些新的方法供大家参考。下面请先看一下出现问题的代码:<!DOC
  • [印象雅舍原创]内存卡格式化后无法新建分区(新建分区选项变为灰色)的原因与解决办法图文教程 内存卡格式化后无法新建分区(新建变为灰色)的原因与解决办法:现象如图:1.(原因)无法新建分区是该内存卡之前有被分过区,格式化的时候卡内分区被损坏,导致无法新建分区;2.(解决办法)先将内存卡格式化成exFAT格式,格式化之后用PM分区软件
  • 无线路由器pppoe连接不上解决办法 问:无线路由器上设置PPPoE拨号上网后,发现PPPoE连接不上,显示PPPoE拨号失败、正在连接、WAN口未连接等。请问这是什么原因引起的,有什么办法解决这个问题。答:无线路由器设置PPPoE拨号后,PPPoE拨号连接不上,不能够上网,原
  • 【笔记】Ubuntu下Apache2原样输出PHP解决办法 问题现象:搭建完LAMP环境之后浏览器访问PHP文件时直接把代码原样输出了。解决办法:sudoapt-getinstalllibapache2-mod-php
  • zencart 开源商城出现乱码问题的解决办法 1.数据库造成的乱码问题。在后台录入数据时和前台展示时,页面的编码不一致可能导致该问题。例如后台管理录入数据时使用的编码为utf-8,而前台显示时,编码为iso-8859-7,则会产生乱码。解决办法,将后台语言包中的charset设置为is
  • 厦工楚胜多功能洒水车出现故障最快的解决办法18808665255 厦工楚胜多功能洒水车出现故障最快的解决办法1、多功能洒水车电机能运转,但转速慢,且机壳过热、有烧焦臭味。多数是电机绕组短路所致,应拆开电机,视损坏情况分别采用焊接、跳线、隔离、重绕等措施修复2、多功能洒水车在行驶中,变速杆自动跳入空档。其原
  • 306@365 Office经典故障解决办法有哪些? 大连电脑维修易帮帮告诉您OFFICE出现使用故障该如何解决1.Office让系统变慢  版本:Office2000  现象:安装完Office之后,运行程序或重启后,电脑运行速度很慢,等待一段时间后,速度恢复正常。  解决方法:出现这种问题
  • 无法查找或打开 PDB 文件解决办法 无法查找或打开PDB文件解决办法分步阅读用VS调试程序时,有时会在VS底部的“输出”框中提示“无法查找或打开PDB文件”。这该怎么解决呢?下面,我们以VS2013为例,来教大家解决办法。方法/步骤1.打开VS2013,点击菜单“工具”-“选

你的评论

就没有什么想说的吗?

最新博客

关于我们 加入传客 媒体报道 帮助中心 传客活动 免责声明 联系我们 移动版 移动应用

©2017传客网    琼ICP备15003173号-2    

本站部分文章来源于互联网,版权归属于原作者。
本站所有转载文章言论不代表本站观点,如是侵犯了原作者的权利请发邮件联系站长(weishubao@126.com),我们收到后立即删除。
站内所有资源仅供学习与参考,请勿用于商业用途,否则产生的一切后果将由您自己承担!

X