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

Вниз

SystemTray   Найти похожие ветки 

 
_SnAke_ ©   (2001-12-08 16:00) [0]

Как свернуть прогу в SystemTray


 
Olgerd ©   (2001-12-08 19:01) [1]

Это прикол?
http://delphi.mastak.ru/articles/advises/index.html


 
Kirill_ ©   (2001-12-13 02:15) [2]

Это грамотней чем в книжках пишут - для себя делал :)))

procedure TForm1.FormCreate(Sender: TObject);
begin
with Tray do
begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Self.Handle;
uID := 100;
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallBackMessage := WM_TRAY;
hIcon := Image1.Picture.Icon.Handle;
szTip := "Инспектор сети";
end;
Form1.Caption := "Инспектор сети";
Shell_NotifyIcon(NIM_ADD, @Tray);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Application.MessageBox("Завершить программу?","Инспектор сети",MB_OKCANCEL)<> IDOK
Then
Action := caNone
else
begin
Shell_NotifyIcon(NIM_DELETE, @Tray);
Action := caFree;
Application.Terminate;
end;
end;

procedure TForm1.MouseInTray(var Msg: TMessage);
var P: TPoint;
begin
if Msg.LParam = WM_RBUTTONDOWN then
begin
GetCursorPos(P);
SetForegroundWindow(Form1.Handle);
PopupMenu1.Popup(P.X, P.Y);
end;
if Msg.LParam = WM_LBUTTONDBLCLK then
begin
ShowWindow(Form1.Handle,SW_RESTORE);
SetForegroundWindow(Form1.Handle);
end;
Application.ProcessMessages;
end;

procedure TForm1.FormMinimize(var Msg: TMessage);
begin
inherited;
if Msg.WParam = SC_MINIMIZE then
begin
ShowWindow(Form1.Handle,SW_HIDE);
ShowWindow(Application.Handle, SW_HIDE);
end;
end;

procedure TForm1.Exit1Click(Sender: TObject);
var Action: TCloseAction;
begin
Action := caFree;
Form1.FormClose(Sender, Action);
end;

Ну у меня она называется "Инспектор сети"



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

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

Наверх




Память: 0.47 MB
Время: 0.01 c
1-32281
Rash
2002-01-28 14:48
2002.02.11
Удаление строки в Stringgrid


1-32258
Оля
2002-01-28 12:08
2002.02.11
Инсталлятор


3-32157
Yu
2002-01-15 09:30
2002.02.11
Как проверить корректность вводимых данных?


1-32233
Вовчик
2002-01-25 21:07
2002.02.11
Delphi


3-32153
Yu
2002-01-16 14:03
2002.02.11
Библиотека EhLib