先有Delphi内存对象,后有句柄(如果需要的话),最后再显示

时间:2022-10-02 13:45:56

在设计期放上一个Panel1和Button1,然后设置Panel1.Visible:=False

这时候执行:

procedure TForm1.Button4Click(Sender: TObject);
begin
ShowMessage(IntToStr(panel1.InstanceSize));
end;

得到552,说明这个Panel1这个内存对象已经存在了。再把它的visible改成true,还是得到552。说明这个内存对象已经存在,且大小没区别(其内容可能会有所不同)。

再重新把visible改成false,测试以下代码:

procedure TForm1.Button1Click(Sender: TObject);
begin
if (panel1.Handle=) then
ShowMessage('no handle')
else
ShowMessage('handled');
end;

结果总是显示已经有句柄了。这是为什么呢?明明还没有显示控件,理应执行HandleNeeded

procedure TWinControl.HandleNeeded;
begin
if FHandle = then
begin
if Parent <> nil then Parent.HandleNeeded;
CreateHandle;
end;
end; function TWinControl.GetHandle: HWnd;
begin
HandleNeeded;
Result := FHandle;
end;

这是因为使用Handle属性时,使用了GetHandle函数,瞬间就把句柄给创建了,所以怎么测试都是已经有句柄。

所以要测,就应该测试FHandle。这就需要把FHandle从private改成public。然后测试:

procedure TForm1.Button1Click(Sender: TObject);
var
panel1 : TPanel;
begin
panel1:=TPanel.Create(nil);
panel1.Left:=;
panel1.top:=;
if (panel1.FHandle=) then
ShowMessage('no handle')
else
ShowMessage('handled');
end;

这时候的结果就是no handle了。

设计期把Panel1.visible改成false,再测试:

procedure TForm1.Button1Click(Sender: TObject);
begin
if (panel1.FHandle=) then
ShowMessage('no handle')
else
ShowMessage('handled');
end;

其结果也是no handle

------------------------------------------------------------------------------------------------------------------------------------------

再来一个出错的代码:

procedure TForm1.Button1Click(Sender: TObject);
var
panel1 : TPanel;
begin
panel1:=TPanel.Create(nil);
panel1.Left:=;
panel1.top:=;
if (panel1.Handle=) then
ShowMessage('no handle')
else
ShowMessage('handled');
end;

顿时出错。因为还没有指定父控件,却在执行Handle属性的GetHandle方法时出错。其实我是从这个错误的例子中,忽然明白,直接使用Panel1.handle=0还没那么简单,是有问题的,不可以使用这种方法来判断。

------------------------------------------------------------------------------------------------------------------------------------------

再来一个问题,设计期放置Image1并载入图片,然而visible设为false,此时Image1在内存中的状态会怎么样呢?目前还不清楚。。。

先有Delphi内存对象,后有句柄(如果需要的话),最后再显示的更多相关文章

  1. delphi 内存映射

    使用内存映射文件读写大文件 使用内存映射文件读写大文件 文件操作是应用程序最为基本的功能之一,Win32 API和MFC均提供有支持文件处理的函数和类.一般来说,这些函数可以满足大多数场合的要求,但是 ...

  2. 多线程的基本概念和Delphi线程对象Tthread介绍

    多线程的基本概念和Delphi线程对象Tthread介绍 作者:xiaoru    WIN 98/NT/2000/XP是个多任务操作系统,也就是:一个进程可以划分为多个线程,每个线程轮流占用CPU运行 ...

  3. windows核心编程---第三章 内核对象及句柄本质

      本章讨论的是相对抽象的概念,不涉及任何具体的内核对象的细节而是讨论所有内核对象的共有特性. 首先让我们来了解一下什么是内核对象.内核对象通过API来创建,每个内核对象是一个数据结构,它对应一块内存 ...

  4. 关于Delphi内存表的使用说明

    关于Delphi内存表的使用说明: 1.建立临时表  数据输入是开发数据库程序的必然环节.在Client/Server结构中,客户端可能要输入一批数据后,再向服务器的后台数据库提交,这就需要在本地(客 ...

  5. C&plus;&plus;——内存对象 禁止产生堆对象 禁止产生栈对象

    用C或C++写程序,需要更多地关注内存,这不仅仅是因为内存的分配是否合理直接影响着程序的效率和性能,更为主要的是,当我们操作内存的时候一不小心就会出现问题,而且很多时候,这些问题都是不易发觉的,比如内 ...

  6. Windows对象、句柄与MFC对象

    windowsmfc编程c 目录(?)[-] Windows对象句柄与MFC对象 windows对象 句柄 mfc对象 杂谈 Windows对象.句柄与MFC对象 (2009-04-28 22:11: ...

  7. 《windows核心编程系列》三谈谈内核对象及句柄的本质

    内核对象 本章讨论的是相对抽象的概念,不涉及任何具体的内核对象的细节而是讨论所有内核对象的共有特性. 首先让我们来了解一下什么是内核对象.内核对象通过API来创建,每个内核对象是一个数据结构,它对应一 ...

  8. 《Entity Framework 6 Recipes》中文翻译系列 &lpar;24&rpar; ------ 第五章 加载实体和导航属性之查询内存对象

    翻译的初衷以及为什么选择<Entity Framework 6 Recipes>来学习,请看本系列开篇 5-4  查询内存对象 问题 你想使用模型中的实体对象,如果他们已经加载到上下文中, ...

  9. powershell中使用超大内存对象

    powershell中使用超大内存对象 简单介绍了powershell中超大内存对象的用途,开启powershell超大内存对象的办法. powershell 传教士 原创文章 2016-12-31 ...

随机推荐

  1. delphi tidhttp 超时设置无效的解决方法

    现在delphi都发布到xe8了,tidhttp还有缺陷,那就是超时设置在没有网络或者连不上服务器的时候是无效的,不管你设置为多少都要10-20秒.connectTimeout和readTimeout ...

  2. javascript数据结构和算法

    一.栈 javascript实现栈的数据结构(借助javascript数组原生的方法即可) //使用javascript来实现栈的数据结构 var Stack={ //不需要外界传参进行初始化,完全可 ...

  3. 与资源库同步时,我的svn报错 Previous operation has not finished&semi; run &&num;39&semi;cleanup&&num;39&semi; if it was interrupted

    解决办法:选择你的项目,右键,小组(Team),刷新或清理(Refresh or Clean)即可.

  4. 【NoSql】MongoDb

    [NoSql]MongoDb 一. 文档 1. 官网 2. C# Driver 3. C# 开发文档 二. 命令 1. --config "C:\mongodb\mongod.cfg&quo ...

  5. ORACLE数据库常用查询二

    ORACLE数据库常用查询 1.查看表空间对应数据文件情况: SQL MB,AUTOEXTENSIBLE FROM DBA_DATA_FILES; TABLESPACE_NAME FILE_NAME ...

  6. Android 使用Gson解析json案例具体解释

    一.眼下解析json有三种工具:org.json(Java经常使用的解析),fastjson(阿里巴巴project师开发的),Gson(Google官网出的),解析速度最快的是Gson,下载地址:h ...

  7. 【WPF】用三角形网格构建三维图形

    虽然WPF只能支持部分三维模型,不过从应用功能开发的角度看,也已经够用了(非游戏开发).WPF 的三维图形,说得简单一点,也就两种而已. 1.把二维对象放到三维空间中,这个应该较为好办,像 Image ...

  8. CocosCreator的ToggleGroup组件使用

    用了CocosCreator也有一段时间,对ToggleGroup始终没有仔细的学习过,只停留在用过的水平.所以因为认识有限,所以以为ToggleGroup对自定义支持得没那么好,这两天因为项目,再学 ...

  9. Android-滑动解锁高亮文字自定义TextView

    public class HightLightTextView extends TextView { // 存储view的宽度 private int mTextViewWidth = 0; // 画 ...

  10. &lbrack;BUAA2017软工&rsqb;第1次个人项目 数独

    [BUAA软工]第1次作业 个人项目 数独 一.项目地址 github地址:https://github.com/BuaaAlen/sudoku 二.PSP表格 三.解题思路描述 在拿到这个题目时,我 ...