微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦！

Delphi – 使用户无需继承现有容器即可控制容器

分类：Delphi作者：编程之家
我需要让一个控件成为一个控制器(在设计和运行时保持其他控件)类似于TPanel,而不继承自定义面板或类似的控件,我如何告诉我的控件它假设包含东西？

解决方法

您需要将csAcceptsControls样式添加到控件的ControlStyle属性中.在控件类的构造函数中有类似的东西： 

ControlStyle := ControlStyle + [csAcceptsControls];

您几乎肯定也想要设置其他ControlStyle属性,所以不要只是逐字逐句,而是研究ControlStyle标志并确定哪些适用于您的情况.

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。

相关推荐

Delphi API HOOK完全说明(存在错误的原文，含修正)
 从网上看到《Delphi API HOOK完全说明》这篇文章，基本上都是大家转来转去，原文出处我已经找不到了。这篇文章写的很不错，但最后部分“PermuteFunction 的终极版本”描述的不太清楚，完全按照该文章代码执行，是不行的。可能是作者故意这样做的？本文最后提供修正后的下载地址。原文如下：一、关于API Hook1.什么是API Hook不知道大家是否还记得，在DO
Delphi API HOOK完全说明(修正及说明)
  从网上看到《Delphi API HOOK完全说明》这篇文章，基本上都是大家转来转去，原文出处我已经找不到了。 这篇文章写的很不错，但最后部分“PermuteFunction 的终极版本”描述的不太清楚，完全按照该文章代码执行，是不行的。需要修改mess.pas中代码才行。其实文中提到的一个结构，代码中并没有使用typePIMAGE_IMPORT_DESCRIPTOR = ^IMA
ffmpeg 部分api delphi 版
ffmpeg 是一套强大的开源的多媒体库 一般都是用 c/c++ 调用， 抽空研究了一下该库的最新版 ，把部分api 翻译成了dephi版的 记录一下 地址 ffmpegvcl.zip
寄存器备忘
32位CPU所含有的寄存器有：4个数据寄存器(EAX、EBX、ECX和EDX)2个变址和指针寄存器(ESI和EDI) 2个指针寄存器(ESP和EBP)6个段寄存器(ES、CS、SS、DS、FS和GS)
键位码
指令整理
1 mov dst, src dst是目的操作数，src是源操作数，指令实现的功能是：将源操作数送到目的操作数中，即：(dst) <--(src) 1.dst和src类型必须匹配，即必须同为字节
delphi中ShellExecute使用详解
有三个API函数可以运行可执行文件WinExec、ShellExecute和CreateProcess。 1.CreateProcess因为使用复杂，比较少用。 2.WinExec主要运行EXE文件。如：WinExec('Notepad.exe Readme.txt', SW_SHOW); 3.ShellExecute不仅可以运行EXE文件，也可以运行已经关联的文件。 首先必须引用shellapi
API函数MoveFileEx使用详解(delphi)
API原型: Declare Function MoveFileEx& Lib "kernel32" Alias "MoveFileExA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal dwFlags As Long) 参数 类型及说明 lpExistingFileName String，欲移
delphi控件安装与删除
附带通用控件安装方法： ---------- 基本安装 1、对于单个控件，Componet-->install component..-->PAS或DCU文件-->install; 2、对于带*.dpk文件的控件包，File-->Open(下拉列表框中选*.dpk)-->install即可； 3、对于带*.bpl文件的控件包，Install Packages-->Add-->bpl文件名即可； 4
Delphi 怎样 把TParams 或 record写到流里面
type   TRec=Record     msg:string;     pic:TMemoryStream; end; procedure TForm2.BitBtn1Click(Sender: TObject); var   ms:TMemoryStream;   Rec1,Rec2:TRec;   cc:tmemorystream;   jpg:TJPEGImage; begin   R
苹果市值2025年有望达4万亿美元
pythonJavaScriptjavaHTMLreactjsC#AndroidCSSNode.jssqlrpython-3.xMysqLjQueryc++pandasFlutterangularIOSdjangolinuxswifttypescript路由器JSON路由器设置无线路由器h3c华三华三路由器设置华三路由器电脑软件教程arraysdocker软件图文教程Cvue.jslaravelspring-bootreact-native