//声明:SetLayeredWindowAttributes( Hwnd: THandle; {窗口句柄} crKey: COLORREF; {透明色} bAlpha: Byte; {Alpha 值} dwFlags: DWORD {LWA_COLORKEY(=1)表示使用透明色; LWA_ALPHA(=2)表示使用 Alpha 值}): Boolean; {是否成功设置}//举例(控制外部程序的透明度, 用计算器举了个例子):unit Unit1;interfac
学习使用资源文件[7] - 字符串资源//rc 文件:StringTablebegin0 "AAAA"1 "BBBB"2 "CCCC"3 "DDDD"end//也可以这样写:StringTablebegin0,"AAAA"1,"BBBB"2,"CCCC"3,"DDDD"end//还可以这样写:StringTable{0,"AAAA&qu
WinAPI: LoadString - 从资源中载入字符串//声明:LoadString( hInstance: HINST; {EXE 或 DLL 的句柄} uID: UINT; {资源 ID} lpBuffer: PChar; {缓冲区} nBufferMax: Integer {缓冲区大小}): Integer; {返回字串实际长度}//假如有这样一个字符串资源: StringTablebegin0 "String_One&quo
//按字母排序的窗口公用消息: WM_ACTIVATEWM_ACTIVATEAPPWM_APPWM_APPCOMMANDWM_ASKCBFORMATNAMEWM_CANCELJOURNALWM_CANCELMODEWM_CAPTURECHANGEDWM_CHANGECBCHAINWM_CHANGEUISTATEWM_CHARWM_CHARTOITEMWM_CHILDACTIVATEWM_CLEARWM_CLOSEWM_COALESCE_FIRSTWM_COALESCE_LASTWM_COMMANDWM_
试试带参数的 Exitunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end;var Form1: TForm1;implem
WinAPI: GetNextWindow - 获取指定窗口Z上或Z下的窗口的句柄//声明:GetNextWindow( hWnd: HWND; {指定的窗口句柄} uCmd: UINT {指定的关系选项}): HWND; {失败返回0; 成功返回符合的窗口句柄}//uCmd 可选值:GW_HWNDNEXT = 2; {同级别 Z 序之下}GW_HWNDPREV = 3; {同级别 Z 序之上}
获取窗口矩形的四种方法: GetClientRect、ClientRect、GetWindowRect、BoundsRect其中 GetClientRect、ClientRect 获取的是窗口的客户区矩形;GetWindowRect、BoundsRect 是获取窗口矩形;另外, 还有一个 Windows.GetClientRect(使用方法同 GetWindowRect, 它们都是 API 函数),这里使用的 GetClientRect 是 Forms.GetClientRect.本例效果图:unit
GetActiveWindow 只是获取当前程序中(严格地说是线程中)被激活的窗口;GetForegroundWindow 是获取当前系统中被激活的窗口.两个函数的级别不一样, 一个是线程级、一个是系统级.被激活的窗口不一定是顶层窗口(最上面的窗口).下面的例子可以充分说明问题, 测试方法：点击三个按钮，然后反复切换焦点、观察．代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics,