WinApi: GetParent、SetParent、MoveWindow - 获取、指定父窗口和移动窗口
摘要：提示: SetParent 应该 Windows.SetParent, 因为 TForm 的父类有同名方法. //声明: {获取父窗口句柄} GetParent(hWnd: HWND): HWND; {指定父窗口} SetParent( hWndChild: HWND; {子句柄} hWndNewParent: HWND {父句柄} ): HWND; ...
阅读全文
posted @
2008-03-10 00:39
万一
阅读(10470)
推荐(0) 编辑
WinAPI: GetWindowRect、GetClientRect - 获取窗口的外部与内部矩形
摘要：提示: 1、其实用 Delphi 内部同类函数很方便的, 但系统函数是全局的; 2、使用 GetClientRect 时, 一般要 Windows.GetClientRect, 因为 TForm 的父类有同名函数. //声明: {获取窗口外部矩形(相对于屏幕)} GetWindowRect( hWnd: HWND; {窗口句柄} var lpRect: TRect {用...
阅读全文
posted @
2008-03-10 00:19
万一
阅读(8829)
推荐(0) 编辑
WinAPI: WindowFromPoint- 获取指定点所在窗口的句柄
摘要：//声明: WindowFromPoint(Point: TPoint): HWND; //举例: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TF...
阅读全文
posted @
2008-03-09 23:32
万一
阅读(11061)
推荐(2) 编辑
WinAPI: SetWindowPos - 改变窗口的位置与状态
摘要：//声明: SetWindowPos( hWnd: HWND; {窗口句柄} hWndInsertAfter: HWND; {窗口的 Z 顺序} X, Y: Integer; {位置} cx, cy: Integer; {大小} uFlags: UINT {选项} ): BOOL; //hWndInser...
阅读全文
posted @
2008-02-12 16:56
万一
阅读(31822)
推荐(2) 编辑
WinAPI: MoveWindow - 改变窗口的位置与大小
摘要：//声明: MoveWindow( hWnd: HWND; {窗口句柄} X, Y: Integer; {位置} nWidth, nHeight: Integer; {大小} bRepaint: BOOL {是否重绘} ): BOOL; //举例: procedure TForm1.Button1Clic...
阅读全文
posted @
2008-02-12 15:47
万一
阅读(15626)
推荐(0) 编辑
WinAPI: IsIconic、IsZoomed - 分别判断窗口是否已最小化、最大化
摘要：//声明: IsIconic( hWnd: HWND {窗口句柄} ): BOOL; IsZoomed( hWnd: HWND {窗口句柄} ): BOOL;
阅读全文
posted @
2008-02-12 13:46
万一
阅读(7333)
推荐(0) 编辑
WinAPI: GetParent - 判断两个窗口是不是父子关系
摘要：//声明: IsChild( hWndParent, hWnd: HWND {参数是两个窗口句柄, 父窗口在前} ): BOOL;
阅读全文
posted @
2008-02-12 13:40
万一
阅读(2676)
推荐(0) 编辑
WinAPI: GetParent - 获取指定窗口的父窗口句柄
摘要：//声明: GetParent( hWnd: HWND {窗口句柄} ): HWND; {返回父窗口句柄} //举例: procedure TForm1.Button1Click(Sender: TObject); var h1,h2: HWND; begin h1 := GetParent(Button1.Handle); h2 := Panel1.Handle; ...
阅读全文
posted @
2008-02-12 13:31
万一
阅读(15021)
推荐(0) 编辑
WinAPI: GetFocus - 获取当前拥有焦点的窗口的句柄
摘要：//声明: GetFocus: HWND; {无参数; 返回当前拥有焦点窗口的句柄} //举例: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TFo...
阅读全文
posted @
2008-02-12 13:17
万一
阅读(12465)
推荐(0) 编辑
WinAPI: GetActiveWindow - 获取当前活动窗口的句柄
摘要：//声明: GetActiveWindow: HWND; {无参数; 返回当前活动窗口的句柄} //举例: var h: HWND; begin h := GetActiveWindow; FlashWindow(h, True); end;
阅读全文
posted @
2008-02-12 12:43
万一
阅读(10863)
推荐(0) 编辑
WinAPI: FlashWindow - 闪烁窗口
摘要：//声明: FlashWindow( hWnd: HWND; {窗口句柄} bInvert: BOOL {设为 True 才会闪烁} ): BOOL; //举例: begin FlashWindow(Handle, True); end;
阅读全文
posted @
2008-02-12 12:39
万一
阅读(5304)
推荐(0) 编辑
WinAPI: InflateRect - 改变矩形大小
摘要：//声明: InflateRect( var lprc: TRect; {要修改的矩形} dx, dy: Integer {变化值} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject); var R: TRect; const s = '%d,%d,%d,%d'; begin R := Rect(60, ...
阅读全文
posted @
2008-02-10 09:55
万一
阅读(6370)
推荐(0) 编辑
管理
