Помогите разобраться с формой

← →
nsvi (2004-04-14 07:20) [0]

Уважаемые программисты!
2 вопроса, связанные с формой.
1. Имеется главная форма, она может раскрываться, занимая весь экран. При раскрытии создается вторая форма, на которой одна кнопка Restore, по которой главная форма восстанавливает первоначальные размеры. Все это работает, кроме того, что при активации раскрытой главной формы, то есть когда вторая форма теряет фокус, например, при щелчке мышью по ней, вторая форма исчезает. Вторая форма имеет свойство StayOnTop=true;, но оно не помогает. Попытки использовать функцию API SetWindowPos безрезультатны. Что можно сделать в этой ситуации? Вот код с API функцией:

procedure TForm1.FullScreen;
begin
if not Assigned( Form2 ) then
NewForm2( Form2, Applet );
Form2.Form.Show; SetWindowPos(Form2.Form.GetWindowHandle,HWND_TopMost,107,192,88,45,swp_noActivate);
end;

а вот с присвоением стиля
procedure TForm1.FullScreen;
begin
if not Assigned( Form2 ) then
NewForm2( Form2, Applet );
Form2.Form.Show;
Form2.Form.ExStyle:=WS_EX_TOPMOST;
end;
и так
procedure TForm1.FullScreen;
begin
if not Assigned( Form2 ) then
NewForm2( Form2, Applet );
Form2.Form.ExStyle:=WS_EX_TOPMOST;
Form2.Form.Show;
end;
2. Событие FormShow должно наступать после вывода главной формы на экран. Мне надо показать при запуске программы на ее фоне модальное окно с текстом поверх окна программы. Однако, сначала показывается окно с текстом и только когда я его закрываю, выводится главное окно. Почему так происходит?

← →
SPeller © (2004-04-14 08:14) [1]

1. Зачем мучаться со вторым окном? Сделай на форме кнопочку, которая и будет восстанавливать прежний размер.
2. В OnShow модальной формы попробуй сделать главной Invalidate.

← →
Delphi5.01 © (2004-04-14 08:29) [2]

Form2.Form.ShowModal?

← →
nsvi (2004-04-14 11:10) [3]

В том-то и дело, что форма FullScreen без рамки и кнопок и нет возможности поставить кнопку. Окно должно быть как в том же блокноте окно поиска или в WordPad
А форма немодальная, то есть именно Form2.Form.Show;

← →
nsvi (2004-04-14 11:24) [4]

>2. В OnShow модальной формы попробуй сделать главной Invalidate.

попробовал, без результатно!

← →
SPeller © (2004-04-14 12:03) [5]

> попробовал, без результатно!

А Show?

На счет второго окошка - сделай его дитём от главной формы, а не от аплета. Тогда она просто физически не сможет спрятаться за неё :)

← →
nsvi (2004-04-14 13:45) [6]

Попробую

← →
nsvi (2004-04-14 14:11) [7]

По первому пункту вопрос снят, спасибо!

> попробовал, без результатно!

>А Show?

Еще объясню. При запуске программы должно сначала показаться главное окно программы, затем, после вывода главного окна выводится обычное модальное окно, которое потом закрывается по нажатию кнопки. А оно выводится перед выводом главного окна, несмотря на то, что модальное окно запускается при наступлении события KOLForm1OnShow. А Form2 - именно модальное, то есть как раз Form2.Form.ShowModal

Попробуй в OnIdle аплета вставить вызов модальной формаы.

← →
nsvi (2004-04-15 13:20) [9]

Всем спасибо. Во всем разобрался. По второму вопросу надо было просто в обработчике FormCreate после всех установок вставить Form.Show, а после этого выводить остальные окна, тогда они лягут на основное.

Помогите разобраться с формой Найти похожие ветки