Форум: "Основная";
Поиск по всему сайту: 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.016 c
7-52669           Woolen                2001-10-01 13:10  2002.01.17  
Блокирование


3-52490           Андре                 2001-12-14 11:50  2002.01.17  
Поля массивы в Interbase


3-52494           Alex22                2001-12-15 11:12  2002.01.17  
BDE


3-52481           Дима                  2001-12-14 19:38  2002.01.17  
Как обойтись без BDE


14-52650          paul_shmakov          2001-11-21 01:13  2002.01.17  
подсветка синтаксиса в форуме