Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.018 c