Свернуть в ТРЕЙ Tray

← →
Joni26 (2003-03-23 21:20) [0]

Как свернуть в ТРЕЙ подскажите. Поделюсь своим опытом.

← →
Song © (2003-03-23 21:21) [1]

Эт никак нельзя, супер-секретные технологии.

← →
Basic © (2003-03-23 21:50) [2]

если по секрету - возьми TRxTrayIcon, к ней добавь

procedure TfmMain.AppEvents1Minimize(Sender: TObject);
begin
{$IFDEF WIN32}
if NewStyleControls then ShowWindow(Application.Handle, SW_HIDE);
{$ENDIF}
end;

думаю разберешься дальше

PS: Song не говори

← →
sniknik © (2003-03-23 23:49) [3]

свернуть невозможно, можно скрыть приложение (формы) и нарисовать в трее иконку.

нарисовать например так (не люблю левые компоненты)
var
ScaleNim: TNotifyIconData;

begin
ScaleNim.cbSize:=sizeof(ScaleNim);
ScaleNim.Wnd:=Handle;
ScaleNim.uID:=0;
ScaleNim.uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
ScaleNim.uCallbackMessage:=WM_MYNOTIFY;
ScaleNim.hIcon:=IconNotInit.Handle;
Move(SS2[1],ScaleNim.szTip[0],Length(SS2));
Shell_NotifyIcon(NIM_ADD,@ScaleNim);

← →
mrcat © (2003-03-23 23:54) [4]

>>Как свернуть в ТРЕЙ подскажите.

чего "свернуть"-то?

>>Поделюсь своим опытом.

с твоими знаниями это будет сложно сделать ;)

← →
Palladin © (2003-03-24 00:33) [5]

он наверно уже сворачивал что то в трей :)

Иконку в system tray (где часы) вставляют функцией Shell_NotifyIcon (с) TT

Есть компонент TrayIcon, в нём есть функция скрытия формы, при этом икона проги горит в трее. Есть возможность создания OnClick и многого другого.

Если нужен, сообщи:

sergein@nojabrsk.ru

Свернуть в ТРЕЙ Tray Найти похожие ветки