delphi
文章平均质量分 65
取个昵称真难吖
这个作者很懒,什么都没留下…
展开
-
自由浮动控件的实现
浮动工具条应该都不会陌生。MS Office Word 、Excel中都有,只要你选中内容就会出现透明淡淡的工具条。鼠标移动到上面就会显示。 要实现浮动效果只要把 ParentHandle = 0 系统就会把控件浮出显示,但效果不好,系统任务条上会出现多余的东西,程序焦点会被显示的控件夺走。 解决这个问题,需要系统的API提供了几个样式扩展参数。 WS_EX_TOOLWINDOW原创 2013-05-29 22:19:40 · 531 阅读 · 0 评论 -
记录类型中String的释放
String能自动释放,在进行内存拷贝时需要进行手动释放。可以直接调用Finalize手工释放 如:TGraphicHideTab 记录中声明的Caption:string TGraphicHideTab = record Image:Integer; Data:Integer; Size:Integer; /// 绘制时使用的尺寸原创 2014-03-14 15:49:15 · 568 阅读 · 0 评论