Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.17;
Скачать: CL | DM;

Вниз

скрыть приложение   Найти похожие ветки 

 
pavelgr ©   (2004-09-15 17:02) [0]

всем привет!!!
подскажите, пожалуйста, как сделать, чтоб при нажатии на кнопку программа скрывалась в правый угол панели задач (туда, где часы и переключатель клавиатуры)???


 
WondeRu ©   (2004-09-15 17:12) [1]

Думаю это провокация


 
inic ©   (2004-09-15 17:23) [2]

Неужели в FAQе нет этого. Или поищи в форумах строчку Tray


 
Rem   (2004-09-15 17:48) [3]

type
 TForm2 = class(TForm)
 private
   procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
   ...
 end;

procedure TForm2.WMSysCommand(var Message: TWMSysCommand);
var
 WindowPlacement: TWindowPlacement;
begin
 if (Message.CmdType = SC_MINIMIZE) then
 begin
   WindowPlacement.length := SizeOf(WindowPlacement);
   WindowPlacement.flags := WPF_SETMINPOSITION;
   WindowPlacement.showCmd := SW_SHOWNA;
   WindowPlacement.ptMinPosition := Point(Screen.WorkAreaLeft + Screen.WorkAreaWidth,
                                          Screen.WorkAreaTop + Screen.WorkAreaHeight);
   WindowPlacement.rcNormalPosition := Rect(Self.Left, Self.Top, Self.Left + Self.Width, Self.Top + Self.Height);
   WindowPlacement.ptMaxPosition := Point(Screen.WorkAreaLeft, Screen.WorkAreaTop);
   SetWindowPlacement(Handle, @WindowPlacement);
 end;
 inherited;
end;


:))



Страницы: 1 вся ветка

Текущий архив: 2004.10.17;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.037 c
14-1096447111
PVOzerski
2004-09-29 12:38
2004.10.17
А где бы найти ssh-клиента для Win32?


1-1096863829
Fedia
2004-10-04 08:23
2004.10.17
Вставка формулы суммы в Excel


14-1096288159
quickblack
2004-09-27 16:29
2004.10.17
Нужен Delphi 7 или6


1-1096630109
Kolan
2004-10-01 15:28
2004.10.17
Delphi + новая компонента = НЕРАБОТАЕТ delphi


1-1096955985
Cherepovets
2004-10-05 09:59
2004.10.17
Дериктория