| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2022/9/22 0:23:01 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | procedure TForm1.Button1Click(Sender: TObject); var APanel: TPanel; begin Panel1.Color := $000080FF; Panel1.Font.Color := clWhite; APanel := TPanel.Create(Self); APanel.Name := 'adfa'; APanel.Color := clRed; APanel.Parent := Self; APanel.Align := alTop; end; 上面的代码，Panel1 是设计期拖过来的，代码改颜色成功。 后面那个 APanel 用代码动态创建，虽然也设置了颜色，但是它显示出来仍然是灰色。 这个是什么情况？我设置了 ParentColor := False; 也没用。而且这个值应该是默认就是 False 的。 ---------------------------------------------- - |
|||||
| 作者： |
|
2022/9/22 0:25:27 | ||||
| 1楼： | 搞定了。 居然是 ParentBackgroundColor 默认是 True 导致。把它设置为 False 就可以了。 ---------------------------------------------- - |
|||||
| 作者： |
|
2022/9/22 4:31:40 | ||||
| 2楼： | the magic occurs on "ControlStyle" definition: procedure TForm1.Button1Click(Sender: TObject); var MyPanel: TPanel; begin MyPanel := TPanel.Create(self); MyPanel.Parent := self; MyPanel.Left := 10; MyPanel.Top := 10; MyPanel.Color := clBlue; // MyPanel.ParentBackground := false; // or // MyPanel.ControlStyle := MyPanel.ControlStyle - [csParentBackground]; end; ---------------------------------------------- The higher the degree, the greater the respect given to the humblest!RAD 11.3 |
|||||
| 作者： |
|
2022/9/22 14:20:55 | ||||
| 3楼： | Thanks, emailx45. ---------------------------------------------- - |
|||||
| 作者： |
|
2022/9/23 8:16:56 | ||||
| 4楼： | 学习了！ ---------------------------------------------- - |
|||||
| 作者： |
|
2022/9/23 18:46:53 | ||||
| 5楼： | 学习了 ---------------------------------------------- http://www.cnblogs.com/tulater/ |
|||||
| 信息 |
| 登陆以后才能回复 |
