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

Вниз

Как свернуть прогу в трей?   Найти похожие ветки 

 
Dimonich   (2003-03-24 15:02) [0]

Вопр ламерский, но других пока нету.


 
BGV   (2003-03-24 15:51) [1]

Используй RxLib


 
LyzD   (2003-03-24 15:55) [2]

Создаешь иконку в трее, при сворачивании она сама убирается. Для простоты можешь взять CoolIcon. Либо вот таким макаром...
const
WM_NOTIFYTRAYICON = WM_USER + 1;
...
private
procedure WMTRAYICONNOTIFY(var Msg: TMessage);
message WM_NOTIFYTRAYICON;
...
uses ShellAPI;

procedure TForm1.WMTRAYICONNOTIFY(var Msg: TMessage);
var
begin
case Msg.LParam of
WM_LBUTTONDOWN:
begin
if Form1.Visible then hide
else
begin
Show;
SetForegroundWindow(Form.Handle);
end;
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
tray: TNotifyIconData;
Ic: TIcon;
begin
Ic := TIcon.Create;
Ic.LoadFromFile("Icon1.ico");
with tray do begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Form1.Handle;
uID := 1;
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallBackMessage := WM_NOTIFYTRAYICON;
hIcon := Ic.Handle;
szTip := ("Это наша иконка");
end;
Shell_NotifyIcon(NIM_ADD, Addr(tray));
Ic.Destroy;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
tray: TNotifyIconData;
begin
with tray do begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Form1.Handle;
uID := 1;
end;
Shell_NotifyIcon(NIM_DELETE, Addr(tray));
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.013 c
6-6635
bavc
2003-02-11 07:27
2003.04.03
Передача данных HTML


4-6864
Zelius
2003-02-05 22:07
2003.04.03
Как комбобоксу установить размер выпадающего списка?


1-6458
Катерина
2003-03-24 09:37
2003.04.03
Цвет ячейки


1-6604
AlexMax
2003-03-22 20:24
2003.04.03
Глюки с кодировкой.


4-6862
Spider-Lex
2003-02-06 06:54
2003.04.03
Как нажать NumLock?