Форум: "WinAPI";
Текущий архив: 2004.10.17;
Скачать: [xml.tar.bz2];
Внизскрыть приложение Найти похожие ветки
← →
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 вся ветка
Форум: "WinAPI";
Текущий архив: 2004.10.17;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.038 c