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

Подскажите   Найти похожие ветки 

← →
AndOrXor   (2002-08-27 14:09) [0]

Подскажите где найти. Где-то видел статью, как приложение в трэй засунуть.

---

← →
AlekseyK ©   (2002-08-27 14:34) [1]

Если хочешь давай мыло брошу коипоненты CoolTrayIcon and
TextTrayIcon

---

← →
AL2002 ©   (2002-08-27 14:35) [2]

Ух! Скока раз такое было!!!!!!
В факю.

---

← →
AL2002 ©   (2002-08-27 14:38) [3]

Всем, кому в облом:
Ну, не статья, но почти:

unit
Unit1;
interface
uses
Windows, Messages, SysUtils,
Classes, Forms, ShellAPI, Menus;
type
TForm1 =
class(TForm)
procedure FormCreate(Sender:
TObject);
private
FIconData:
TNotifyIconData;
protected
procedure WndProc(var
Message: TMessage); override;
end;
var
Form1:
TForm1;
implementation
{$R *.DFM}
const
UM_TRAY
= WM_USER + 1;
{ TForm1 }
procedure TForm1.FormCreate(Sender:
TObject);
begin
with FIconData do
begin

cbSize := SizeOf(FIconData);
Wnd := Handle;

uID := 100;
uFlags := NIF_MESSAGE or NIF_ICON or
NIF_TIP;
uCallbackMessage := UM_TRAY;
hIcon :=
Application.Icon.Handle;
StrPCopy(szTip,
Application.Title)
end;
Application.ShowMainForm :=
False;
Shell_NotifyIcon(NIM_ADD, @FIconData)
end;
procedure
TForm1.WndProc(var Message: TMessage);
begin
case Message.Msg
of
WM_SYSCOMMAND:
if
TWMSysCommand(Message).CmdType and $FFF0 = SC_MINIMIZE then

begin
Shell_NotifyIcon(NIM_ADD,
@FIconData);
Application.MainForm.Visible :=
False
end
else
inherited;
UM_TRAY:
if Message.LParam =
WM_LBUTTONDBLCLK then
begin

Application.MainForm.Visible := True;

ShowWindow(Application.Handle, SW_HIDE);

Shell_NotifyIcon(NIM_DELETE, @FIconData)

end;
else
inherited
end
end;
end.

---

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

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



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