Главная страница
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.02 c
1-32189
RUS1
2002-01-29 10:11
2002.02.11
Господа!!!! Как сделать чтобы прога ждала окончания выполнения процедуры ExecuteFile


1-32196
RUS1
2002-01-29 12:41
2002.02.11
Как можно удалить сразу все файлы и подкаталоги в директории


3-32128
Олег Лаукарт
2002-01-15 12:35
2002.02.11
Помогите с запросом


6-32298
Abzetdin
2001-11-18 22:08
2002.02.11
Передача динамического массива через Сокеты


3-32122
Animal
2002-01-15 10:33
2002.02.11
Работа с таблицами без установки BDE на компьтере