`

Delphi里的Handle和HWND

 
阅读更多

Windows单元:

unit Windows;
{$ALIGN ON}
{$MINENUMSIZE 4}
{$WEAKPACKAGEUNIT}
{$IFDEF LINUX}
{$DEFINE LINUXCRITSECTION}
{$ENDIF}

interface
...
type
HWND = type LongWord;

Controls单元:
unit Controls;
{$P+,S-,W-,R-,T-,H+,X+}
{ WARN SYMBOL_PLATFORM OFF}
{$C PRELOAD}

interface
...
{$R Controls.res}

...

TWinControl = class(TControl)
private

...
property Handle: HWnd read GetHandle;

从上面可以看出:Handle是TWinControl这个类的一个属性,是HWnd 类型。

HWnd 是Windows单元里定义的一个LongWord的类型。

分享到:
评论

相关推荐

    Delphi实现窗口最顶层显示.rar

     SetWindowPos(Handle,HWND_TOPMOST,  //hWndInsertAfter参数设置为HWND_TOPMOST  Left,Top,Width,Height,//窗体的位置和尺寸不变  SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);  //SWP_NOACTIVATE:不...

    delphi资源-MessageDLG

     hWnd:对话框父窗口句柄,对话框显示在Delphi窗体内,可使用窗体的Handle属性,否则可用0,使其直接作为桌面窗口的子窗口。  Text:欲显示的信息字符串。  Caption:对话框标题字符串。  Type:对话框类型常量...

    Delphi 7 获取窗口文本的例子.rar

    Delphi 7 获取窗口文本的例子,只要是当前窗口中的内容,都可以获取到,可能会比较乱,获取的过程被封装在按钮事件中,当用户点击后,执行事件中规定的命令:  procedure TForm1.BitBtn1Click(Sender: TObject);  ...

    DELPHI MessageBox自定义消息框图标〖源代码〗

    应用程序在运行当中经常要输出各种即时信息,...---- 强烈建议把自定义函数放在一个单元文件里,并把此文件放在Delphi的搜索路径如Lib下,以后只需要把此单元加在uses语句里,就可以直接使用自定义函数,非常方便。

    Delphi操作InputBoxSetPasswordChar变成密码框示例源码.rar

     hInputForm, hEdit: HWND;  begin  hInputForm := Screen.Forms[0].Handle;  if (hInputForm <> 0) then  begin  hEdit := FindWindowEx(hInputForm, 0, 'TEdit', nil);  SendMessage(hEdit, EM_...

    在Delphi中定义自己图标的消息框〖源代码〗

    应用程序在运行当中经常要输出各种即时信息,...---- 强烈建议把自定义函数放在一个单元文件里,并把此文件放在Delphi的搜索路径如Lib下,以后只需要把此单元加在uses语句里,就可以直接使用自定义函数,非常方便。

    DELPHI一系列开发技巧

    hCurrentWindow:=Getwindow(handle,GW_HWndFrist); while hCurrentWindow <> 0 do begin if Getwindowtext(hcurrnetwindow,@sztext,255)>0 then listbox1.items.add(strpas(@sztext)); hCurrentWindow:=Getwindow...

    delphi通用函数单元一

    Handle: THandle = 0; const Param: string = ''); {测试通过} {* 运行一个文件} function WinExecAndWait32(FileName: string; Visibility: Integer = SW_NORMAL): Integer; {测试通过} {* 运行一个文件并等待...

    Delphi多线程编程之三 同步读写全局数据

    Hwnd是handle of window,主要用于窗口句柄;而Thandle则没有限制。 2、线程Create()前用CreateMutex()来创建一个互斥量。该函数定义为: HANDLE WINAPI CreateMutex( LPSECURITY_ATTRIBUTES lpMutexAttributes, ...

    托盘小程序

    SetWindowPos(Application.Handle, HWND_TOP, 0, 0, 0, 0, SWP_SHOWWINDOW); // 在任务栏显示程序 end; WM_RBUTTONUP: PopupMenu1.Popup(mousepos.X, mousepos.Y); // 弹出菜单 end; end; procedure TForm1....

    Delphi扩展的文件目录操作函数

    procedure StayOnTop(Handle: HWND; OnTop: Boolean); {* 窗口最上方显示} procedure SetHidden(Hide: Boolean); {* 设置程序是否出现在任务栏} procedure SetTaskBarVisible(Visible: Boolean); {* 设置任务栏...

    DELPHI TXT 树文档 管理器

    FUNCTION ulong ShowScrollBar(ulong hwnd,ulong wBar,ulong bShow) LIBRARY "user32.dll" constant long SB_HORZ = 0 constant long SB_VERT = 1 constant long SB_BOTH = 3 } procedure ...

    使用DirectSound播放MP3文件

    下面是CDSoundObject类的成员变量和成员函数: * 成员变量: + `HWND _hWnd`: 窗口句柄 + `SoundType _eType`: 音频文件类型 + `IDirectSound* _pDS`: DirectSound对象 + `IDirectSoundBuffer* _pDSBuffer`: ...

    Senfore_DragDrop_v4.1

    Delphi's THandle type when a HWND is passed to a function. E.g.: if (DragDetectPlus(THandle(MyControl->Handle), Point(X, Y))) { ... } * Virtual File Stream formats can only be pasted from the ...

    在同步代码结束后,使用ReleaseMutex(THandle

    您查询的关键词是:delphi 同步 ...旧一篇:◆delphi多线程编程之二 ◆(乌龙哈里2008-10-12) | 新一篇:◆Delphi多线程编程之四 线程安全和VCL ◆(乌龙哈里2008-10-12)Csdn Blog version 3.1a Copyright © mygodsos

    VC实现炫眩qq界面的模拟(附源码)

    界面换肤 美化 异形窗口 vista 样式 透明窗体 自绘控件 vc vb delphi 编程 源码 代码 例子 磨沙 半透明 开发包 免费 破解 button dialog frame XP 下载 自绘按钮 菜单 标题栏 滚动条 listctrl treeview listview ...

    我的函数库

     procedure GetWinRect(const WinHandle:HWND;var winRect:TwinRect);  procedure TimeDelay(DT:Dword);//精确毫秒级延时  procedure SetIPaddress(SIP: TNetValue;const isAuto:boolean=false);//设定网络Ip...

Global site tag (gtag.js) - Google Analytics