Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];




Вниз

Минимизация формы 


Марина   (2001-12-29 09:05) [0]

Подскажите,пожалуйста, как сделать,чтобы при запуске форма сразу минимизировалась и сворачивалась в иконку в SysTray.Заранее благодарна и прошу простить за основательно поднадоевший хозяевам и гостям сайта вопрос.



Андрей Сенченко   (2001-12-29 13:25) [1]

Взято из FAQ
<c>
const WM_MINIMALIZE = WM_USER + 1;

begin
Application.OnMinimize := OnAppMinimize;
with FIconData do
begin
cbSize := SizeOf(FIconData);
Wnd := Self.Handle;
uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
hIcon := Application.Icon.Handle;
uCallbackMessage := WM_MINIMALIZE;
szTip := "Копирование файлов SHOPS";
end;
Shell_NotifyIcon(NIM_ADD, @FIconData);
end;
</c>



Андрей Сенченко   (2001-12-29 13:27) [2]


szTip := "Копирование файлов SHOPS";/code>

Это безусловно моё название. Здесь пишешь ту надпись, которая должна появляться когда мышь наводят на иконку в Tray;



Юрий Зотов   (2001-12-29 13:40) [3]

1. Не хватает одного пустячка:
Application.ShowMainForm := False;

2. Строка
Application.OnMinimize := OnAppMinimize;
не обязательна. Зависит от задачи.

3. Поместите весь этот код в обработчик OnCreate главной формы.



Андрей Сенченко   (2001-12-29 13:55) [4]

> Юрий Зотов © (29.12.01 13:40)

А можно N+1 встречных вопросов ?

1. У меня решено через
Form1.WindowsTate := wsMinimized
Это если нужно сразу сворачивать. А если нет, то по-моему в MainForm можно разместить все, что необходимо и нормально ее показывать. Или я не прав ?

2. ...

3. А почему не .OnActivate ? ( в зависимости от задачи - это тоже может пригодиться )




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.056 c
3-52487           andey                 2001-12-11 21:04  2002.01.17  
Сумма чисел по полю


1-52528           alexias               2001-12-27 14:54  2002.01.17  
Дерево каталогов просканировать


4-52680           Art                   2001-11-16 15:13  2002.01.17  
А как добавить свой пункт в меню свойства файла или отправить???


3-52520           der                   2001-12-14 06:49  2002.01.17  
Формирование меню из DLL


1-52589           vlv                   2001-12-28 14:51  2002.01.17  
Иерархическая структура