API 控件与消息函数 - 随笔分类 - 万一

WinApi: GetParent、SetParent、MoveWindow - 获取、指定父窗口和移动窗口

摘要：提示: SetParent 应该 Windows.SetParent, 因为 TForm 的父类有同名方法. //声明: {获取父窗口句柄} GetParent(hWnd: HWND): HWND; {指定父窗口} SetParent( hWndChild: HWND; {子句柄} hWndNewParent: HWND {父句柄} ): HWND; ... 阅读全文

posted @ 2008-03-10 00:39 万一阅读(10555) 评论(6) 推荐(0)

WinAPI: GetWindowRect、GetClientRect - 获取窗口的外部与内部矩形

摘要：提示: 1、其实用 Delphi 内部同类函数很方便的, 但系统函数是全局的; 2、使用 GetClientRect 时, 一般要 Windows.GetClientRect, 因为 TForm 的父类有同名函数. //声明: {获取窗口外部矩形(相对于屏幕)} GetWindowRect( hWnd: HWND; {窗口句柄} var lpRect: TRect {用... 阅读全文

posted @ 2008-03-10 00:19 万一阅读(8870) 评论(0) 推荐(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 万一阅读(11104) 评论(19) 推荐(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 万一阅读(32058) 评论(11) 推荐(2)

WinAPI: MoveWindow - 改变窗口的位置与大小

摘要：//声明: MoveWindow( hWnd: HWND; {窗口句柄} X, Y: Integer; {位置} nWidth, nHeight: Integer; {大小} bRepaint: BOOL {是否重绘} ): BOOL; //举例: procedure TForm1.Button1Clic... 阅读全文

posted @ 2008-02-12 15:47 万一阅读(15661) 评论(5) 推荐(0)

WinAPI: IsIconic、IsZoomed - 分别判断窗口是否已最小化、最大化

摘要：//声明: IsIconic( hWnd: HWND {窗口句柄} ): BOOL; IsZoomed( hWnd: HWND {窗口句柄} ): BOOL; 阅读全文

posted @ 2008-02-12 13:46 万一阅读(7381) 评论(1) 推荐(0)

WinAPI: GetParent - 判断两个窗口是不是父子关系

摘要：//声明: IsChild( hWndParent, hWnd: HWND {参数是两个窗口句柄, 父窗口在前} ): BOOL; 阅读全文

posted @ 2008-02-12 13:40 万一阅读(2700) 评论(0) 推荐(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 万一阅读(15055) 评论(0) 推荐(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 万一阅读(12553) 评论(0) 推荐(0)

WinAPI: GetActiveWindow - 获取当前活动窗口的句柄

摘要：//声明: GetActiveWindow: HWND; {无参数; 返回当前活动窗口的句柄} //举例: var h: HWND; begin h := GetActiveWindow; FlashWindow(h, True); end; 阅读全文

posted @ 2008-02-12 12:43 万一阅读(10900) 评论(0) 推荐(0)

WinAPI: FlashWindow - 闪烁窗口

摘要：//声明: FlashWindow( hWnd: HWND; {窗口句柄} bInvert: BOOL {设为 True 才会闪烁} ): BOOL; //举例: begin FlashWindow(Handle, True); end; 阅读全文

posted @ 2008-02-12 12:39 万一阅读(5363) 评论(1) 推荐(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 万一阅读(6434) 评论(0) 推荐(0)

随笔分类 - API 控件与消息函数