ShIvADeSt
Moderator | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
DroN_S
Цитата: у формы убираешь Minimized, тоесть его просто диалоговым...
для установки призязки к клаве и спользуй THotKey |
Не получится, обсуждалось уже не раз, все равно будет исчезать, ибо окно не сворачивается, а переносится на виртуальный десктоп. Как вариант, хук на клаву и при нажатии на вин-Д обратно ресторить.
Цитата:| Это код просто замечательный, разговора нет. Единственный минус - запускаю винамп, qip, и моё окно так и висит поверх всех, всё клёво, вот только OnMouseMove уже не пашет ((( Форма моя перестаёт "чувствовать" мышку, попадающую на неё. Что делать?.. Как сделать так, чтобы форма всегда чувствовала грызуна? |
А не трудно ли сделать вначале вызвать эту процедуру, а потом сразу после нее эту же процедуру, но с нормальными параметрами, а вообще я для принудительного выкидывания на самый верх использую вот это
Цитата:
function ForceForegroundWindow(Const hWnd: THandle): Boolean;
var
hCurWnd: THandle;
begin
Result := False;
if not isWindow(hWnd) then Exit;
hCurWnd := GetForegroundWindow;
if (hCurWnd=hWnd) then begin
Result := True;
Exit;
end;
if (GetWindowLong( hWnd, GWL_STYLE ) and WS_MINIMIZE)<>0
then ShowWindow(hWnd, SW_SHOWNOACTIVATE);
AttachThreadInput( GetWindowThreadProcessId(hCurWnd, nil),
GetCurrentThreadId, True);
Application.ProcessMessages;
SetForegroundWindow(hWnd);
AttachThreadInput( GetWindowThreadProcessId(hCurWnd, nil),
GetCurrentThreadId, False);
Result := GetForegroundWindow=hWnd;
end;
|
----------
И создал Бог женщину... Существо получилось злобное, но забавное... |
|
