Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];




Вниз

Как активизировать минимизированную форму при закрытии другой? 


Andrey007   (2002-04-02 21:39) [0]

procedure TForm1.FormHide(Sender: TObject);
begin
if Form2.Visible then
begin
if Form2.WindowState=wsMinimized then Form2.WindowState:=wsNormal;
Form2.SetFocus
end
end;


Проблема в том, что когда Form2 свёрнута, она разворачивается, а фокус ей не передаётся. Не успевает что ли? Как дождаться пока она развернётся?



Nikolay   (2002-04-02 22:23) [1]

может надо добавить Form2.show? (совершенно в этом не уверен...)



Alexander Ionov   (2002-04-03 02:05) [2]

А с чего ты взял, что фокус не передается?



Andrey077   (2002-04-04 16:40) [3]

2 Alexander Ionov: факт - вещь упрямая.



Gerakl   (2002-04-04 18:08) [4]

Согласен с Николаем.
Form2.show; вместо Form2.SetFocus;
Так должно работать!




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.013 c
3-46291           alexandervasjuk       2002-03-21 14:06  2002.04.15  
MySQL. Что день грядущий мне готовит?


14-46512          Knight                2002-03-06 19:52  2002.04.15  
вопрос в общем-то банальный... Где скачать фильмы? Естессно на русском...


1-46413           Renard                2002-04-01 21:36  2002.04.15  
Подскажите, как отключить кнопку restore (в системном меню)


6-46473           kerrik                2002-02-01 01:11  2002.04.15  
Статистика соединения интернет


1-46449           Yuraz                 2002-04-01 11:06  2002.04.15  
Подскажите, как в полезную ф-ю commatext добавить др. разграничит