Форум: "Основная";
Поиск по всему сайту: 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.72 MB
Время: 0.021 c