| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как вытащить окно на передний план и ... [D6, Win2k]
MetalFan © (2004-04-21 12:15:00)перевести на него фокус?
procedure TfmMainDB.DoRestoreApp;
begin
if IsIconic(Application.Handle) then
begin
ShowWindow(Application.Handle, SW_SHOW);
Application.Restore;
end;
SetForegroundWindow(Handle);
end;
если приложение было свернуто, то все ОК!
а если оно просто было на заднем фоне - то кнопка в таскбаре мигает, а приложение остается позади всех окон((((
MetalFan (2004-04-22 10:33:00) [1]2 DVM
ну и более навороченный конечно!
Всем спасибо за советы!
DVM (2004-04-22 10:12:00) [2]
> пожалуй [8] более "красивый" код, чем в ссылке по [15]
Скажи лучше более навороченный. Там куча лишних строчек. :)
Но он рабочий на 100% я проверял его давно как-то.
MetalFan (2004-04-22 10:00:00) [3]пожалуй [8] более "красивый" код, чем в ссылке по [15]
Dimka Maslov (2004-04-22 09:43:00) [4]>BaDeVlad © (22.04.04 09:39) [17]
В этом случае просто заморгает значок
DVM (2004-04-22 09:42:00) [5]
> BaDeVlad © (22.04.04 09:39) [17]
Если ваше окно будет свернуто, перекрыто другими, и потом вздумает вылезти, это не поможет. Иногда будет получаться, но далеко не всегда. К тому же поглядите [10].
BaDeVlad (2004-04-22 09:39:00) [6]Application.BringToFront
DVM (2004-04-22 09:32:00) [7]
> Можно же сделать Show и все должно получиться?
нет.
Dimka Maslov (2004-04-22 09:32:00) [8]http://delphibase.endimus.com/?action=viewfunc&topic=appctrl&id=10031
DVM (2004-04-22 09:32:00) [9]
> Cobalt © (22.04.04 09:24) [12]
В win2000 в работу всех этих функций введено небольшое "новшество". Окно теперь не может просто так вылезти наверх и забрать фокус. Ну представьте: вы печатаете пароль - вылезает программка и забирает ваши нажатия в свое окно. Или просто набирали тест - вылезло чужое окно и все ваши нажатия ушли в никуда. Потому переключится на окно с передачей фокуса и выводом его на передний план можно либо [1] оно же в [8] (код с torry.net) либо [2].
BaDeVlad (2004-04-22 09:31:00) [10]Какой ужас! А зачем окно СВОЕЙ программы делать активным посредством посылки сообщений? Или я чегой-то недопонял? Можно же сделать Show и все должно получиться?
Cobalt (2004-04-22 09:24:00) [11]2 DVM © (22.04.04 09:04) [11]
А передача фокуса окну?
DVM (2004-04-22 09:04:00) [12]
> Sur © (21.04.04 23:19) [9]
> SetForegroundWindow(Handle) или
> BringWindowToTop(Handle)
>
>
> Slym © (22.04.04 05:17) [10]
> Application.BringToFront!
Ни то не другое не сработает в Win2000 на 100 %
Slym (2004-04-22 05:17:00) [13]Application.BringToFront!
Sur (2004-04-21 23:19:00) [14]SetForegroundWindow(Handle) или
BringWindowToTop(Handle)
DDA (2004-04-21 22:49:00) [15]
function ForceForegroundWindow(hwnd: THandle): boolean;
const
SPI_GETFOREGROUNDLOCKTIMEOUT = $2000;
SPI_SETFOREGROUNDLOCKTIMEOUT = $2001;
var
ForegroundThreadID: DWORD;
ThisThreadID: DWORD;
timeout: DWORD;
begin
if IsIconic(hwnd) then
ShowWindow(hwnd, SW_RESTORE);
if GetForegroundWindow = hwnd then
Result := True
else
begin
// Windows 98/2000 doesn't want to foreground a window when some other
// window has keyboard focus
if ((Win32Platform = VER_PLATFORM_WIN32_NT) and (Win32MajorVersion > 4))
or
((Win32Platform = VER_PLATFORM_WIN32_WINDOWS) and
((Win32MajorVersion > 4) or ((Win32MajorVersion = 4) and
(Win32MinorVersion > 0)))) then
begin
// Code from Karl E. Peterson, www.mvps.org/vb/sample.htm
// Converted to Delphi by Ray Lischner
// Published in The Delphi Magazine 55, page 16
Result := False;
ForegroundThreadID := GetWindowThreadProcessID(GetForegroundWindow,
nil);
ThisThreadID := GetWindowThreadPRocessId(hwnd, nil);
if AttachThreadInput(ThisThreadID, ForegroundThreadID, True) then
begin
BringWindowToTop(hwnd); // IE 5.5 related hack
SetForegroundWindow(hwnd);
AttachThreadInput(ThisThreadID, ForegroundThreadID, False);
Result := (GetForegroundWindow = hwnd);
end;
if not Result then
begin
// Code by Daniel P. Stasinski
SystemParametersInfo(SPI_GETFOREGROUNDLOCKTIMEOUT, 0, @timeout, 0);
SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0, TObject(0), SPIF_SENDCHANGE);
BringWindowToTop(hwnd); // IE 5.5 related hack
SetForegroundWindow(hWnd);
SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0, TObject(timeout), SPIF_SENDCHANGE);
end;
end
else
begin
BringWindowToTop(hwnd); // IE 5.5 related hack
SetForegroundWindow(hwnd);
end;
Result := (GetForegroundWindow = hwnd);
end;
end; { ForceForegroundWindow }
-----------------------
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ForceForegroundWindow(Application.Handle);
end;
MetalFan (2004-04-21 14:44:00) [16]прошу прощенья! работает, если второй параметр false, но окно остается неактивным...
MetalFan (2004-04-21 14:38:00) [17]
> DVM © (21.04.04 13:14) [5]
> procedure SwitchToThisWindow(wnd : HWND; bRestore: BOOL);
> stdcall;
> external 'user32.dll' name 'SwitchToThisWindow';
такое же повеление, как и при SetForegroundWindow
DVM (2004-04-21 13:14:00) [18]procedure SwitchToThisWindow(wnd : HWND; bRestore: BOOL); stdcall;
external 'user32.dll' name 'SwitchToThisWindow';
wnd
описатель окна, которому следует передаь фокус;
bRestore
TRUE, если нужно восстановить минимизированное окно.
Чтобы использовать эту функцию, просто скопируйте её определение, данное выше, в любое место программы вне основного кода.
MetalFan (2004-04-21 13:11:00) [19]
> Игорь Шевченко © (21.04.04 12:42) [3]
> DVM © (21.04.04 12:39)
>
> А теперь начнутся вопросы, где ее взять :)
а где ее взять ? )))
Игорь Шевченко (2004-04-21 12:42:00) [20]DVM © (21.04.04 12:39)
А теперь начнутся вопросы, где ее взять :)
| |
Страницы: 