当前位置: 传客网 > 【Delphi】动态创建的Panel无法改变颜色的解决办法

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

2017-01-04 作者:寒窗映月烟逐雨

转自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,点击菜单“工具”-“选

  • linux下安装PHP的时候出现的错误解决办法一览

    linux下安装PHP的时候出现的错误解决办法一览1.error:checkingforgcc...no解决办法:yuminstall-ygcc2.error:xml2-confignotfound.Pleasecheckyourlibxm

  • [程序开发] VS2005无法调试的解决办法~

    一段时间发现VS2005无法调试了,点击生成后又会回到正常状态。上网搜了很久都没有能找到解决办法。后来使用firefox发现能够正常调试,于是想到可能是安装ie8的原因。以下是微软官方的解决方法:IE8hasafeaturecalledLo

  • win10升级后360浏览器无法上网的原因和解决办法

    之前为大家介绍了win10升级后IE无法上网的解决办法,很多朋友在使用360浏览器是也会出现360无法打开网页以及浏览器界面字体变模糊等问题。那么,我们该如何解决呢?一起来看看为大家带来的win10360浏览器无法上网解决办法吧!win10

  • 战网客户端无法安装?打不开解决办法

    突然想玩暴雪的游戏了,可是战网客户端无法安装打不开怎么办呢?这点让人真的是很头疼,玩个单机都不省心啊,下面小编就给大家带来了战网客户端无法安装解决办法,希望大家能够顺利的进行游戏。战网客户端无法安装解决办法:请确保已开启Se

  • CDR常见问题解决办法汇总,你今天遇到这些问题了吗?

    CDR常见问题解决办法汇总Coreldraw疑难杂症及解决办法汇总(长期更新,接受各类问题):1.界面栏出现莫名其妙的问题(如工具栏消失等)这个问题基本上是由于误操作引起的。有时候我们找不到工具栏,有时候属性栏不见了……但是我们在菜单栏下方

  • 应对微软20号黑屏的几种解决办法

    应对微软20号黑屏的几种解决办法微软20号黑屏,微软正式打击盗版,解决方法,大家看看微软20号黑屏?微软正式打击盗版,我们该如何应对?以下是在网上搜集的几种解决办法,有几个我已经试用过~!可以通过~!大家可以按照以下方法去试一下:第一种:最

  • USB3.0无法识别U盘的三种解决办法

    USB3.0无法识别U盘解决办法?最近发现电脑USB3.0无法识别U盘,插入U盘安装网卡驱动,但是反复插拔U盘,笔记本都无法识别U盘,该怎么办呢?下面我们从三个方面来找解决办法最近给工作机装系统,安装好原版系统之后,插入U盘安装网卡驱动,但

  • error LNK2001: unresolved external symbol _main解决办法

    errorLNK2001:unresolvedexternalsymbol_main解决办法errorLNK2001:unresolvedexternalsymbol_main解决办法解决外部符号错误:_main,_WinMain@16,_

返回
顶部