Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];




Вниз

Активация программы 


Leviathan   (2001-12-29 02:07) [0]

Приложение деактивировано, нужно, чтобы при щелче на трей-иконку оно активировалось и вылезло на первый план.



Suntechnic   (2001-12-29 04:40) [1]

ShowWindow(Application.Handle, SW_RESTORE);



RaZEr   (2001-12-29 06:39) [2]

Ну или SetForegroundWindow(MainWnd.Handle);



Хлор   (2002-01-08 06:42) [3]

Вот шматок смотри может пригодиться:

procedure TForm1.IconTray (var Msg: TMessage);
var
Pt: TPoint;
begin
if Msg.lParam = wm_rbuttondown then
begin
GetCursorPos (Pt);
PopupMenu1.Popup (Pt.x, Pt.y);
end;
if Msg.lParam = WM_lBUTTONDBLCLK then
begin
ShowWindow(Application.Handle, SW_RESTORE);
end;
end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.018 c
1-75595           Eraser                2002-01-04 23:51  2002.01.24  
HELP как-нибудь


1-75615           swr                   2002-01-08 10:26  2002.01.24  
меню Project/Resourses в Delphi IDE


6-75646           VideoLord             2001-10-31 21:19  2002.01.24  
Indy - idTCPServer


1-75554           Анатолий              2002-01-06 06:20  2002.01.24  
Цвет ячейки StringGrid


3-75489           КАТЯ                  2001-12-20 11:02  2002.01.24  
не присваивает почему-то