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

← →
Марина (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 главной формы.

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

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

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

2. ...

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

Минимизация формы Найти похожие ветки