我通过代码:
handle:= FindWindow(nil,PChar('PC应用程序'));
ShowWindow(handle, SW_SHOW);窗体显示出来后结果右上角的最小化、大化按钮不能使用了,求高手解决 谢谢delphi窗体句柄FindWindowShowWindow
handle:= FindWindow(nil,PChar('PC应用程序'));
ShowWindow(handle, SW_SHOW);窗体显示出来后结果右上角的最小化、大化按钮不能使用了,求高手解决 谢谢delphi窗体句柄FindWindowShowWindow
解决方案 »
- 怎样使非主窗口置顶?
- 如何把日期转换成英文日期,小弟请教!如2004-02-01 转换成 Feb,01,2004
- 为什么我用API创建的套接字连接不上TServerSocket?
- 欢迎进来讨论. 答者有分.(88吉祥分).
- 有关银行业务?
- 怎么用delphi,往快速启动栏中添加快捷方式。
- query控件怎么在dbgrid上append一行?
- Sqlserver中使用Applyupdates后,需要很长的时间才能结束,请问,能不能掌握其保存进度?
- 小昂师父,偶用odbc建立access,但odbc的路径选择只有默认的c盘,盘符选择框里是空白,好奇怪
- 请问有没有获取QQ群成员号码的delphi源码或者提供一些方法也行
- 操作Office2007,出现“格式太旧或类型库无效”错误
- delphi三层开发请教
begin
if IsIconic(hWnd) then
ShowWindow(hWnd, SW_RESTORE);
if GetForegroundWindow <> hWnd then
SetForegroundWindow(hWnd);//enabled
//BringWindowToTop(hWnd);//not enabled
//ForceForegroundWindow(hWnd);//enabled
{SetWindowPos(hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
SetWindowPos(hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);//enabled}
//SwitchToThisWindow(hWnd, True);//enabled
Result := GetForegroundWindow = hWnd;
end;function BringWindowToTopMost(hWnd: HWND; bTopMost: Boolean): Boolean;
begin
if IsIconic(hWnd) then
ShowWindow(hWnd, SW_RESTORE);
if bTopMost then
SetWindowPos(hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE)
else
SetWindowPos(hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
end;function BringWindowToTopXY(hWnd: HWND; X, Y: Integer;
hWndInsertAfter: HWND): Boolean;
begin
Result := BringWindowToTopEx(hWnd);
Result := SetWindowPos(hWnd, hWndInsertAfter, X, Y, 0, 0, SWP_NOSIZE)
and Result;
end;