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

http://hi.baidu.com/hellowzr/blog/item/951622b0bf82f25e08230203.html

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

2009-11-1914:22

提示:SetParent应该Windows.SetParent,因为TForm的父类有同名方法.

//声明:

{获取父窗口句柄}

GetParent(hWnd:HWND):HWND;

{指定父窗口}

SetParent(

hWndChild:HWND;{子句柄}

hWndNewParent:HWND{父句柄}

):HWND;{成功返回原父窗口句柄;失败返回0}

{移动窗口}

MoveWindow(

hWnd:HWND;{窗口句柄}

X,Y:Integer;{位置}

nWidth,nHeight:Integer;{大小}

bRepaint:BOOL{True表示刷新;False表示不刷新}

):BOOL;

//举例:

unitUnit1;

interface

uses

Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,

Dialogs,StdCtrls,ExtCtrls;

type

TForm1=class(TForm)

Edit1:TEdit;

Button1:TButton;

procedureButton1Click(Sender:TObject);

end;

var

Form1:TForm1;

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

implementation

{$R*.dfm}

procedureTForm1.Button1Click(Sender:TObject);

begin

ifGetParent(Edit1.Handle)=Handlethen

begin

Windows.SetParent(Edit1.Handle,Button1.Handle);

MoveWindow(Edit1.Handle,0,0,Edit1.Width,Edit1.Height,True);//这句可以不要

endelsebegin

Windows.SetParent(Edit1.Handle,Self.Handle);

MoveWindow(Edit1.Handle,0,0,Edit1.Width,Edit1.Height,True);//这句可以不要

end;

end;

end.

  

爱华网本文地址 » http://www.aihuau.com/a/25101011/44352.html

更多阅读

单反相机入门机、中端机和高端机的区别 入门单反相机推荐2016

其实对于这个问题,我没有太多想说的话,因为我觉得摄影这个东西,用什么器材无所谓,重要的是相机后面那个脑袋,很多摄影大赛的获奖作品都是手机拍摄,本人虽然是专业摄影师出身,但至今还寒酸的用着几年前买的佳能500D这个入门机,对各种机器的了

声明:《WinApi:GetParent、SetParent、MoveWindow-获取、指定父窗口和移》为网友世事无常分享!如侵犯到您的合法权益请联系我们删除