Delphi10控件Style自定义注意点

最新推荐文章于 2021-11-17 21:22:31 发布
最新推荐文章于 2021-11-17 21:22:31 发布
阅读量1.5k 收藏
点赞数
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/jnshen77/article/details/78549672
版权
StyledSettings属性，除常用Family、Size、Style等设置外，修改其它项目注意将Other项设置为True。否则，某些自定义属性无效。
jnshen77
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Delphi XE 10.2 设置全局Style
07-15
Delphi XE 10.2 设置全局Style，折腾了我不少时间，网上资料很多误导，希望大家节省宝贵时间。
CPPeffective3
ccqq0507的博客
01-27 68
#include <iostream> #include <assert.h> using namespace std; class Rectangle { public: Rectangle(int h,int w) :height(h), widget(w) {} ~Rectangle() {} virtual void setHeight(int newHeight) { height = newHeight; } virtual void setWidth(int
Elasticsearch的测试数据
CB_Beginner的博客
11-07 4732
{"index":{"_id":"1"}} {"account_number":1,"balance":39225,"firstname":"Amber","lastname":"Duke","age":32,"gender":"M","address":"880 Holmes Lane","employer":"Pyrami","email":"[email protected]","city":"Brogan","state":"IL"} {"index":{"_id":"6"}} {"acco.
Delphi StyleControls之功能按钮设计
小印丶的笔记
08-26 1573
RAD Studio 10.3 测试√ 控件：scGPGlyphButton 控件部分属性： 【关闭和最小化下的OnClick事件】 procedure TForm2.scGPGlyphButton1Click(Sender: TObject); begin Application.Terminate; //关闭 end; procedure TForm2.scGPGlyphButton2Click(Sender: TObject); begin Application.Min
delphi label 背景颜色设置！
思想的可见性
10-14 5614
需要写一个动态霓虹灯程序，主要结构和程序如下： 创建VCL工程，控件中直接选取一个label 和 一个Timer控件。 由于不需要框架，所以直接设置Form属性中BorderStyle ：=  bsNone；取消边框。 双击创建timer对应相应：Timer1Timer，这里可以设置他的间隔调用时间。 在里面直接设置Form和Label 。 font的AutoSize ：= Tru
Delphi Style组件之毛玻璃半透明显示窗体特效
小印丶的笔记
08-31 1038
RAD Studio 10.3 测试√ 需要2个窗体，Form1上面添加一个Button和scStyledForm，空白的Form2 scStyledForm属性设置： 然后双击Button搞代码 procedure TForm1.Button1Click(Sender: TObject); begin Form2 := TForm2.Create(Self); with Form2 do begin scStyledForm1.ShowClientInActiveEffect;
Delphi XE2使用VCL Styles (皮肤/skin)
GuoGuoABC
11-17 802
在新版本中，你可以直接给你的程序换皮肤/skin（主题），Project-> Options -> Application -> Appearance，在这里选一个你想要的主题， 当然，你可以在你的程序里自己设定，为了使用VCL Styles，你需要使用TStyleManager类，Themes单元，如下几步：注册Style 从文件加载（注册）VCL style，需要使用TStyleManager类中的LoadFromFile函数， 复制代码 procedure RegisterSty
Delphi代码的标准风格
sailerbai的专栏
12-28 1180
Object Pascal Style Guide - By Charles Calvert(对象Pascal编码风格向导 - 译：Tommy Tong)    我们承认许多好的已经确定的工作室或个人，拥有他们自己的和本文里所说的不同的编程习惯， 但是，我们强烈建议你使用一个工具将你的代码转换为Borland风格的代码，然后再提交给Borland，Project JEDI或其他任何公开的源代码知识
Delphi之Tchart控件使用心得
热门推荐
yunqian09的专栏_delphi
02-10 1万+
Delphi之Tchart控件使用心得    最近在学习delphi，做一个软件练手，用到Tchart控件，有些粗略的使用心得，供delphi初学者参考。    TChart是delphi里面一个标准的图形显示控件。它可以静态设计（at design time）也可以动态生成。可下载Steema TeeChart 7，没有源代码，能用就好！    由于我要在同一个Chart界面显示不同
DELPHI XE8自带Style效果截图
05-18
DELPHI XE8自带Style效果截图,XE新手免去一个一个地试效果。
delphi界面美化控件FlatStyle
02-26
delphi界面美化控件FlatStyle，包括安装说明文档，delphi开发人员福音
StyleControls(皮肤控件) 4.53 源码免安装版
10-10
StyleControls(皮肤控件) 4.53 源码免安装版，支持XE2-10.3版本。StyleControls是针对开发者打造的一款强大皮肤控件，它包含了独特和高级的可以扩展标准的VCL控件，基于BusinessSkinForm VCL和DynamicSkinForm VCL，可以与Delphi XE以及C++Builder编程软件完美兼容，软件丰富的元素和控件供用户选择，包含一些主题风格、高级按钮以及复选框等，支持64位操作系统。
Delphi 皮肤控件 StyleControls 5.08 Full Source
06-02
StyleControls是针对开发者打造的一款强大皮肤控件，它包含了独特和高级的可以扩展标准的VCL控件，基于BusinessSkinForm VCL和DynamicSkinForm VCL，可以与Delphi XE以及C++Builder编程软件完美兼容，软件丰富的元素...
Delphi 自定义控件源码.zip
02-12
delphi自定义控件源码文件夹里包含教程和源码两部分，亲自测试是可以实现自定义控件，有需要的可以下载借鉴一下方法。
delphi自定义组件demo源码;delphi自定义控件demo;
11-04
delphi自定义控件demo源码，本示例在D7下测试成功。 注册组件。 点击Componet－>Install Componet进行自定义组件安装，此时将出现组件安装对话框。 在Unit FilName 中输入控件单元文件 的文件名（包括路径），...
Delphi自定义控件开发.doc
05-07
比较早的一个Delphi控件的开发,下载学习可以使用,主要学习控件开发的流程和理解控件开发的原理,忘记从哪里下载的,上传一下防丢失~
Delphi自定义控件开发
06-02
我们从一个能够添加超链接的标签控件开始我们的控件开发之旅吧！
后端开发是一个涉及广泛技术和工具的领域.docx
最新发布
04-30
后端开发是一个涉及广泛技术和工具的领域，这些资源对于构建健壮、可扩展和高效的Web应用程序至关重要。以下是对后端开发资源的简要介绍： 首先，掌握一门或多门编程语言是后端开发的基础。Java、Python和Node.js是其中最受欢迎的几种。Java以其跨平台性和丰富的库而著名，Python则因其简洁的语法和广泛的应用领域而备受欢迎。Node.js则通过其基于JavaScript的单线程异步I/O模型，为Web开发提供了高性能的解决方案。 其次，数据库技术是后端开发中不可或缺的一部分。关系型数据库（如MySQL、PostgreSQL）和非关系型数据库（如MongoDB、Redis）各有其特点和应用场景。关系型数据库适合存储结构化数据，而非关系型数据库则更适合处理大量非结构化数据。 此外，Web开发框架也是后端开发的重要资源。例如，Express是一个基于Node.js的Web应用开发框架，它提供了丰富的API和中间件支持，使得开发人员能够快速地构建Web应用程序。Django则是一个用Python编写的Web应用框架，它采用了MVC的软件设计模式，使得代码结构更加清晰和易于维护。
华为数字化转型实践28个精华问答glkm.pptx
04-30
华为数字化转型实践28个精华问答glkm.pptx
请问如何用delphi XE5把别的窗口嵌入到控件里面？
09-24
### 回答1： 要将另一个窗口嵌入到 Delphi XE5 的控件中，可以使用 TPanel 控件和 WinAPI 函数 SetParent。 下面是一个简单的示例，假设你有一个 TForm1，里面有一个 TPanel 组件名为 Panel1。你想要将另一个窗口嵌入到 Panel1 中。 1. 首先，你需要获取要嵌入的窗口的句柄（handle）。可以使用 FindWindow 或 FindWindowEx 函数来查找窗口句柄。比如，假设你要嵌入的窗口的标题为 "My Window"，可以使用以下代码查找它的句柄： ``` var hWnd: HWND; begin hWnd := FindWindow(nil, 'My Window'); if hWnd = 0 then begin ShowMessage('Window not found'); Exit; end; ``` 2. 找到窗口句柄后，可以将它的父窗口设置为 Panel1。这样，窗口就会成为 Panel1 的子窗口，从而被嵌入到 Panel1 中。可以使用 WinAPI 函数 SetParent 来设置父窗口。以下是一个示例： ``` begin SetParent(hWnd, Panel1.Handle); end; ``` 3. 如果你想要在窗口嵌入 Panel1 后，让它的大小自适应 Panel1 的大小，可以在 Panel1 的 OnResize 事件中设置窗口的大小。例如： ``` procedure TForm1.Panel1Resize(Sender: TObject); begin SetWindowPos(hWnd, 0, 0, 0, Panel1.Width, Panel1.Height, SWP_NOZORDER or SWP_NOACTIVATE); end; ``` 这样，当 Panel1 的大小改变时，嵌入的窗口的大小也会跟着改变。 请注意，将另一个窗口嵌入到 Delphi XE5 的控件中需要小心处理。一些窗口可能不支持成为其他窗口的子窗口，或者可能会有一些不可预知的问题。在实际应用中，你需要对特定的窗口进行测试和验证。 ### 回答2： 在Delphi XE5中，可以使用TFrame组件来实现将别的窗口嵌入到控件中的功能。 1. 首先，在Delphi XE5的窗体设计器中创建一个新的TFrame组件，并将其放置在要嵌入其他窗口的控件上（如Panel、GroupBox等）。 2. 在需要嵌入的窗口上右键单击，在弹出菜单中选择“创建新单位”来创建一个新的窗口。 3. 在新创建的窗口上设计所需的用户界面及功能。 4. 在嵌入窗口所在的窗体上的Events视图中，找到要将嵌入窗口关联到TFrame的事件。 5. 在相关的事件中添加以下代码： ```delphi var Frame: TFrame; begin Frame := TFrame.Create(Self); // 创建一个TFrame对象 Frame.Parent := Panel1; // 设置TFrame的父控件为Panel1 Frame.Align := alClient; // 使TFrame铺满父控件 Frame.BorderStyle := bsNone; // 设置TFrame的边框样式为空 Frame.Visible := True; // 设置TFrame可见 EmbedForm(Handle, Frame.Handle); // 将窗体嵌入到TFrame中 end; ``` 6. 上述代码中的EmbedForm是自定义函数，用于将窗体嵌入到TFrame中，其实现如下： ```delphi procedure EmbedForm(AFormHandle, AFrameHandle: THandle); begin SetWindowLong(AFormHandle, GWL_STYLE, GetWindowLong(AFormHandle, GWL_STYLE) and not WS_CAPTION); SetParent(AFormHandle, AFrameHandle); SendMessage(AFormHandle, WM_SYSCOMMAND, SC_MAXIMIZE, 0); end; ``` 通过以上步骤，在Delphi XE5中就可以将其他窗口嵌入到控件中了。记得在不需要时及时释放窗体和TFrame对象的资源。 ### 回答3： 在Delphi XE5中，可以使用TPanel控件来实现将其他窗口嵌入到控件里面的功能。下面是一种示例的方法： 1. 创建一个新的Delphi VCL Forms应用程序项目。 2. 在主窗体中放置一个TPanel控件。可以在主窗体的设计视图中，从工具箱中拖拽一个TPanel控件到主窗体上。 3. 在主窗体的OnCreate事件处理程序中，使用Applicaton.Handle属性来获取当前应用程序的句柄。 例如： ``` procedure TForm1.FormCreate(Sender: TObject); begin Panel1.HandleNeeded; // 确保Panel1的句柄已经创建 SetWindowLong(Panel1.Handle, GWL_STYLE, WS_CHILD or WS_VISIBLE); SetParent(Panel1.Handle, Application.Handle); SetWindowPos(Panel1.Handle, 0, 0, 0, Panel1.Width, Panel1.Height, SWP_NOZORDER or SWP_SHOWWINDOW); end; ``` 以上代码将创建一个子窗口，并将其嵌入到Panel1控件中。具体实现过程如下： - 首先，通过SetWindowLong函数，修改Panel1的风格为WS_CHILD和WS_VISIBLE。这样做是为了将Panel1设置为一个子窗口，并使其可见。 - 然后，使用SetParent函数，将Panel1的句柄设置为当前应用程序的句柄，使其成为主窗口的子窗口。 - 最后，通过SetWindowPos函数，设置Panel1的位置和大小，并使用SWP_NOZORDER和SWP_SHOWWINDOW参数来保持其在Z轴方向上的顺序，并显示子窗口。 通过这样的处理，你可以将其他窗口（如另一个应用程序的主窗口）嵌入到Panel1控件中，并与主窗体一起显示和操作。请注意，你需要提前获取其他窗口的句柄，并在代码中将其设置为Panel1的子窗口。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值