有关PageControl的OwnerDraw属性

olivertree 2004-05-11 07:02:42

如果这个属性设置为True,界面会美观一些.但是标题就不能显示了.各位帮帮忙,出谋划策以下!!

...全文

62 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

lvjack 2004-05-12

打赏
举报

回复

应该可以连标题都自己画吧
没试过

看看能不能textout

olivertree 2004-05-12

打赏
举报

回复

没有其它的办法吗？我想通过属性来控制，因为我不知道怎么编写代码。

JetKingLau 2004-05-11

打赏
举报

回复

顾名思义，OwnerDraw 就是要你自己画的，当然很多事情都得自己动手啦！

本人做delphi界面设计时总结的一些东西

delphi常用属性说明 ALIGN 设置组件对齐（同其父容器）方式 BORDERSTYLE 设置组件边框形状 CAPTION 设置组件标题 CTL3D 设置组件边框是否为3D模式，若BORDERSTYLE设置为BSNONE则此属性无效 COLOR 设定组件背景颜色 CURSOR 设定鼠标经过组件时光标所显示的形状 ENABLED 设定组件是否能使用，当设为FALSE时组件会呈灰色

第一种方法：修改标题文字颜色首先将PageControl的OwnerDraw属性设为TRUE 然后在PageControl的OnDrawTab事件里写代码控制： procedure TfrmMain.PageControl1DrawTab(Control: TCustomTabControl;TabIndex: Integer; const Rect: TRect; Ac

在Win32标准控件库中(comctl32.dll)的控件绝大部分的控件都支持自画(OwnerDraw)功能的设置，这里以按钮为例子说说此类控件在delphi中的编写方式以及应该注意的问题！由于标准的按钮都有一套规定的外观标准（由windows的comctl32.dll中的代码绘制），为了给用户一个自己绘制控件的机会，多数的控件都支持在创建的时候设置一个标志来告诉系统这个控件需要自己绘制，例如按钮

1.先把 PageControl1 的 OwnerDraw 属性设为 true procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean); begin if Active then

VCL组件使用和开发

604

社区成员

13,457

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章