Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Программа и интерфейс
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 28.04.2009, 18:13
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию Баг после Application.Minimize

Если кто решал данную проблему:
После вызова в OnCreate Application.Minimize приклад ведет себя странно. - после клика на таскбаре по нему он окно-то разворачивает, а вот само приложение все-равно считает себя свернутым. Соответсвенно, при попытке минимизировать окно ничего не происходит. Если кликнуть по таскбару правой мышой и выбрать пункт Restore, то все приходит в норму.

Если кто вдруг сталкивался с этой проблемой и знает как ее решать - отзовитесь. Сейчас самому некогда с ней разбираться, но она явно раздражает...
Ответить с цитированием
  #2  
Старый 28.04.2009, 21:20
Nyctos Kasignete Nyctos Kasignete вне форума
Активный
 
Регистрация: 29.03.2009
Сообщения: 300
Репутация: 94
По умолчанию

А я вот попробовала написать Application.Minimize в методе OnCreate, но окно-то при запуске программы не сворачивается (но уходит вниз Z-порядка). Хотя и не должно сворачиваться, вроде бы. И в справке так и сказано: "не путайте метод Minimize всего приложения с минимизацией окна".

Потерю активности кнопки сворачивания можно "вылечить", обрабатывая в своей программе сообщение WM_SYSCOMMAND. Вот так, например:
Код:
TForm1 = class(TForm)
  procedure FormCreate(Sender: TObject);
private
  { Private declarations }
  procedure WMSYSCOMMAND(var Msg: TMessage); message WM_SYSCOMMAND;
public
  { Public declarations }
end;

............

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

procedure TForm1.WMSYSCOMMAND(var Msg: TMessage);
begin
  if Msg.WParam = SC_MINIMIZE then ShowWindow(Handle, SW_MINIMIZE);
  inherited;
end;
Ответить с цитированием
  #3  
Старый 28.04.2009, 21:26
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Угу, попробую.
Дело в том, что именно происходит сворачивание приложения, но после клика на кнопке приложения на таскбаре, хотя окно и разворачивается, но приклад считает, что он все еще свернут. Вот тут-то и трабл.
Ответить с цитированием
  #4  
Старый 28.04.2009, 21:32
Nyctos Kasignete Nyctos Kasignete вне форума
Активный
 
Регистрация: 29.03.2009
Сообщения: 300
Репутация: 94
По умолчанию

Сейчас только заметила, что если делать так, как написала выше, окно сворачивается не в иконку на панели задач, а как будто дочернее — в угол над кнопкой Пуск... =)
Ответить с цитированием
  #5  
Старый 28.04.2009, 21:43
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Попробовал. Не совсем то что нужно.
Точнее так - точно не нужно.
Ладно, по ходу буду рыть сам, когда основной функционал доделаю.
Ответить с цитированием
  #6  
Старый 28.04.2009, 22:33
Аватар для 0nni
0nni 0nni вне форума
Начинающий
 
Регистрация: 13.12.2008
Адрес: Туапсе
Сообщения: 161
Репутация: 20
По умолчанию

Плохо понял что вы хотите, но на таск-баре отображается окно
application.handle;
Вызывайие ShowWindow(application.handle, SW_ХХХХ) так геде что то не так работает.
__________________
...сказал, и загрустил от бесспорной своей правоты
Ответить с цитированием
  #7  
Старый 28.04.2009, 22:42
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Пробовал. Не помогает.
Короче, хочу, что бы при старте приложения оно умело стартовать в свернутом режиме. При этом - это настройка. Вариант обычного старта и старта в трее работает нормально. А вот этот - нифига.
Просто мне еще надо кучу другого функционала написать, поэтому решил спросить - -может кто уже бился с этим.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 12:55.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025