with PaintBox, Canvas do
begin
Brush.Style := bsClear;
FillRect(Rect(0, 0, Width, Height));
end;
begin
Brush.Style := bsClear;
FillRect(Rect(0, 0, Width, Height));
end;
解决方案 »
- 无边框窗口如何实现QQ聊天窗口最小化到任务栏,直接点任务栏上的按钮缩小到任务栏和从任务栏恢复
- 在Delphi中怎么实现复制DBGRID里所有的内容!
- 2个clientdataset导入数据的问题
- 重金求够 地磅称重软件 源码
- 为什么把图片保存到数据库后,用DBImage 显示出来是黑的?急急急!
- keybd_event遇到的奇怪的问题
- 如何在delphi中得到存储过程return的指
- 我没有钱买光驱又不能拆硬盘,请问各位大虾那里有免费的Delphi下载(序列号是多少)谢谢!
- Delphi 如何粉碎文件?
- 请告诉我几个参数!
- wly033(代码机器),flying_fish(飞鱼),scycgyj(阿郎)进来看看!
- 这句创建临时表的SQL语句出错了,请专家们帮忙!
begin
Brush.Style := bsClear;
Brush.Color := Self.Color;
FillRect(Rect(0, 0, Width, Height));
end;
Brush.Color := Color;
这是Color特指PaintBox.Color