Сворачивание приложения и загрузка данных

[Armorer]

Мне нужно чтобы при запуске программа сразу свернулась в трей. Использую TCoolTray икон.

Столкнулся с такими глюками, которые не могу исправить:

1. если написать Application.Minimize; в событии OnCreate формы то программа свернется (но не в трей, хотя култрейикон работает нормально в других случаях), но после её "разворачивания" кнопка сворачивания вообще не работает! Пробовал в пустом приложении - тоже самое.

2. объявляю переменную b: boolean = True, в оnPaint пишу:

if b then
begin
b := false;
Application.Minimize;
end;

Программа в трее. НО когда я её разворачиваю, она появляется с не загруженными данными (она грузит немного текста из файла в onCreate), затем зависает на несколько секунд (при обычной загрузке такова нет) и загружает данные. Эту проблему удалось решить созданием таймера с интервалом 100 и отключением его после минимизации, но возможно, есть более надежное решение?

[mihali4]

Попробуйте примерно так:

procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox1.Items.LoadFromFile('E:\Mytext.txt');
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
Application.Minimize;
end;

Тут не будет никаких задержек.

[Vladya]

но после её "разворачивания" кнопка сворачивания вообще не работает! Пробовал в пустом приложении - тоже самое.

Кнопочка эта может не работать из за того что Вы наверное не поставили свойство MinimizeToTray в True

[Armorer]

Сообщение от Vladya

Кнопочка эта может не работать из за того что Вы наверное не поставили свойство MinimizeToTray в True

Я проверял в пустом приложении (создал новое и в onCreate добавил Application.Minimize - то же самое.

Попробуйте примерно так:
Код:


procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox1.Items.LoadFromFile('E:\Myt ext.txt');
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
Application.Minimize;
end;

Тут не будет никаких задержек.

если делать так то ошибка появляется "Cannot change Visible in OnShow or OnHide". В чем тут дело пока не разобрался..

[Terran]

Запускайте программу сразу спрятанную.

Procedure TForm1.FormCreate(Sender: TObject);
Begin
Application.ShowMainForm:=False;
If b=false Then
Begin
b:=True;
CoolTrayIcon1.ShowMainForm;
End;
End;

Там же можете и загружать данные. Для показа/скрытия формы лучше используйте функции CoolTrayIcon1.ShowMainForm; и CoolTrayIcon1.HideMainForm; .

[mihali4]

если делать так то ошибка появляется "Cannot change Visible in OnShow or OnHide". В чем тут дело пока не разобрался..

У меня никаких ошибок...
Уберите обработчики OnShow, OnPaint и прочие.
В конце концов можете создать новый проект и задать только два обработчика, которые я вам привел - все будет тик-так...