delphi 如何设定另一程序指定窗口的显示位置 如何设定另一程序指定窗口的显示位置和关闭指定窗口(不是关掉程序) 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 SetWindowPos ,至于窗体关闭sendmessage发消息呗 //声明:SetWindowPos( hWnd: HWND; {窗口句柄} hWndInsertAfter: HWND; {窗口的 Z 顺序} X, Y: Integer; {位置} cx, cy: Integer; {大小} uFlags: UINT {选项}): BOOL;//hWndInsertAfter 参数可选值:HWND_TOP = 0; {在前面}HWND_BOTTOM = 1; {在后面}HWND_TOPMOST = HWND(-1); {在前面, 位于任何顶部窗口的前面}HWND_NOTOPMOST = HWND(-2); {在前面, 位于其他顶部窗口的后面}//uFlags 参数可选值:SWP_NOSIZE = 1; {忽略 cx、cy, 保持大小}SWP_NOMOVE = 2; {忽略 X、Y, 不改变位置}SWP_NOZORDER = 4; {忽略 hWndInsertAfter, 保持 Z 顺序}SWP_NOREDRAW = 8; {不重绘}SWP_NOACTIVATE = $10; {不激活}SWP_FRAMECHANGED = $20; {强制发送 WM_NCCALCSIZE 消息, 一般只是在改变大小时才发送此消息}SWP_SHOWWINDOW = $40; {显示窗口}SWP_HIDEWINDOW = $80; {隐藏窗口}SWP_NOCOPYBITS = $100; {丢弃客户区}SWP_NOOWNERZORDER = $200; {忽略 hWndInsertAfter, 不改变 Z 序列的所有者}SWP_NOSENDCHANGING = $400; {不发出 WM_WINDOWPOSCHANGING 消息}SWP_DRAWFRAME = SWP_FRAMECHANGED; {画边框}SWP_NOREPOSITION = SWP_NOOWNERZORDER;{}SWP_DEFERERASE = $2000; {防止产生 WM_SYNCPAINT 消息}SWP_ASYNCWINDOWPOS = $4000; {若调用进程不拥有窗口, 系统会向拥有窗口的线程发出需求}--------------------------------------------------------------------------------//举例,置顶窗口:procedure TForm1.Button1Click(Sender: TObject);begin SetWindowPos(Handle, HWND_TOPMOST, 0,0, 100,200, SWP_SHOWWINDOW);end;关闭窗口就用Sendmessage 或者POSTMESSAGESendMessage(form1.handle,WM_close,0,0); postMessage(form1.handle,WM_QUIT,0,0); MDI 子窗体打开MDI 子窗体 调用某程序CALL SOS 急救! 关于Treeview,救急! 再见,也许是永远(第一个留言100分,在线散!) c语言中的宏在delphi里对应什么语句啊?请指点 送分。关于一个经常使用的函数 打印机监测程序 Delphi 6单元文件找不到的问题 ———————欢迎光临,动态报表讨论; Delphi—————————————— 关于自定义控件添加TBitmap变量的问题 cxDBPivotGrid如何导出EXCEL??
//声明:
SetWindowPos(
hWnd: HWND; {窗口句柄}
hWndInsertAfter: HWND; {窗口的 Z 顺序}
X, Y: Integer; {位置}
cx, cy: Integer; {大小}
uFlags: UINT {选项}
): BOOL;//hWndInsertAfter 参数可选值:
HWND_TOP = 0; {在前面}
HWND_BOTTOM = 1; {在后面}
HWND_TOPMOST = HWND(-1); {在前面, 位于任何顶部窗口的前面}
HWND_NOTOPMOST = HWND(-2); {在前面, 位于其他顶部窗口的后面}//uFlags 参数可选值:
SWP_NOSIZE = 1; {忽略 cx、cy, 保持大小}
SWP_NOMOVE = 2; {忽略 X、Y, 不改变位置}
SWP_NOZORDER = 4; {忽略 hWndInsertAfter, 保持 Z 顺序}
SWP_NOREDRAW = 8; {不重绘}
SWP_NOACTIVATE = $10; {不激活}
SWP_FRAMECHANGED = $20; {强制发送 WM_NCCALCSIZE 消息, 一般只是在改变大小时才发送此消息}
SWP_SHOWWINDOW = $40; {显示窗口}
SWP_HIDEWINDOW = $80; {隐藏窗口}
SWP_NOCOPYBITS = $100; {丢弃客户区}
SWP_NOOWNERZORDER = $200; {忽略 hWndInsertAfter, 不改变 Z 序列的所有者}
SWP_NOSENDCHANGING = $400; {不发出 WM_WINDOWPOSCHANGING 消息}
SWP_DRAWFRAME = SWP_FRAMECHANGED; {画边框}
SWP_NOREPOSITION = SWP_NOOWNERZORDER;{}
SWP_DEFERERASE = $2000; {防止产生 WM_SYNCPAINT 消息}
SWP_ASYNCWINDOWPOS = $4000; {若调用进程不拥有窗口, 系统会向拥有窗口的线程发出需求}
--------------------------------------------------------------------------------//举例,置顶窗口:
procedure TForm1.Button1Click(Sender: TObject);
begin
SetWindowPos(Handle, HWND_TOPMOST, 0,0, 100,200, SWP_SHOWWINDOW);
end;关闭窗口就用Sendmessage 或者POSTMESSAGESendMessage(form1.handle,WM_close,0,0); postMessage(form1.handle,WM_QUIT,0,0);