中国开发网: 论坛: 程序员情感CBD: 贴子 30778
没脾气2x: RX VCLUtils.pas SwitchToWindow
procedure SwitchToWindow(Wnd: HWnd; Restore: Boolean);
begin
if IsWindowEnabled(Wnd) then begin
{$IFDEF WIN32}
SetForegroundWindow(Wnd);
if Restore and IsWindowVisible(Wnd) then begin
if not IsZoomed(Wnd) then
SendMessage(Wnd, WM_SYSCOMMAND, SC_RESTORE, 0);
SetFocus(Wnd);
end;
{$ELSE}
SwitchToThisWindow(Wnd, Restore);
{$ENDIF}
end;
end;

相关信息:


欢迎光临本社区,您还没有登录,不能发贴子。请在 这里登录