Форум: "Основная";
Текущий архив: 2003.06.05;
Скачать: [xml.tar.bz2];
ВнизКак сделать моё приложение активным и вынести вперёд всех окон? Найти похожие ветки
← →
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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.06.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.021 c