Форум: "Основная";
Поиск по всему сайту: 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.012 c
1-52547           Labert                2001-12-26 11:20  2002.01.17  
Что показывает DBGrid


3-52467           Grafr                 2001-12-14 06:25  2002.01.17  
Как искать в поле типа Memo без учета регистра


3-52517           facquodvis            2001-12-17 10:49  2002.01.17  
один запрос - две БД


3-52514           Turalyon              2001-12-17 10:12  2002.01.17  
Знатокам SQL


7-52675           Lizard                2001-09-30 13:59  2002.01.17  
Как из списка в listbox1 удалить нужную строку ?