Как сделать моё приложение активным и вынести вперёд всех окон?

← →
MegaVolt © (2003-05-20 15:10) [0]

Как сделать так чтобы после завершения рассчёта моя прога появлялась поверх всех окон и становилась активной даже если она была до этого свёрнутой?

← →
Kirill © (2003-05-20 15:29) [1]

А BringToFront не работает?

← →
MegaVolt © (2003-05-20 15:37) [2]

Работает но только если приложение не свёрнуто :( А если приложение свёрнуто не работает

← →
MegaVolt © (2003-05-20 16:51) [3]

А развернуть приложение Application.Restore; спасибо за помощь ;)

← →
AbrosimovA (2003-05-23 13:19) [4]

Вот код, который позволяет вызвать по нажатию клавиши F9 свернутое в трей ваше приложение, даже если активна другая программа. Работает только для свернутого в трей

type
TMainForm = class(TForm)
procedure FormCreate(Sender: TObject);
procedure ViewProgram(Sender: TObject);
.
.

private
procedure WMHotkey(Var msg: TWMHotkey );message WM_HOTKEY;

.
.

procedure TMainForm.WMHotkey( Var msg: TWMHotkey );
begin
if msg.hotkey = 1 then begin
if IsIconic( Application.Handle ) then ViewProgramClick(self);
BringToFront;
end;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
//Создаем горячую клавишу
RegisterHotkey(Handle,1,0,VK_F9); //Горячая клавиша [F9] для
вызова программы
end;

procedure TMainForm.ViewProgram;
begin
ShowWindow(Application.Handle,SW_SHOW);
Application.Restore;
Shell_NotifyIcon(NIM_DELETE,@TrayIcon);//Удаление иконки из трея
MainForm.Show;
end;

Как сделать моё приложение активным и вынести вперёд всех окон? Найти похожие ветки