| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Application.ShowMainForm := False; и TFrame

Nil ©   (2008-01-10 18:00:00) 

На главной форме есть 3 фрейма. Переключаются в зависимости от действий юзера следующим образом (при запсуке программы активируется первый фрейм):
procedure TMainForm.SetVisibleFrame(FInd: integer; InitFlag: boolean);
begin
 case FInd of
   1: begin
        ResToBitMap('STEP1HEADICO', ImSteps.Picture.Bitmap);
        Frame11.Width:=723;
        Frame11.Height:=371;
        Frame11.Left:=13;
        Frame11.Top:=145;
        if InitFlag then Frame11.InitContent;

        Frame11.Visible:=True;
        Frame21.Visible:=False;
        Frame31.Visible:=False;
      end;
   2: begin
        ResToBitMap('STEP2HEADICO', ImSteps.Picture.Bitmap);
        Frame21.Width:=723;
        Frame21.Height:=371;
        Frame21.Left:=13;
        Frame21.Top:=145;
        if InitFlag then Frame21.InitContent;

        Frame11.Visible:=False;
        Frame21.Visible:=True;
        Frame31.Visible:=False;
      end;

   3: begin
        ResToBitMap('STEP3HEADICO', ImSteps.Picture.Bitmap);
        Frame31.Width:=723;
        Frame31.Height:=371;
        Frame31.Left:=13;
        Frame31.Top:=145;
        if InitFlag then Frame31.InitContent;

        Frame11.Visible:=False;
        Frame21.Visible:=False;
        Frame31.Visible:=True;
      end;
 end;
end;


Когда ставлю ShowMainForm := False чтобы при запуске, кроме значка в трее, ничего не появлялось фрейм пе показывается. SetVisibleFrame стоит в oncreate главной формы. Подскажите пож в чём проблема. Там никаких подводных камней с созданием этих фреймов нет? Я имею ввиду случай когда ShowMainForm := False

Заранее благодарен!

---

Nil   (2008-01-10 19:50:00) [1]

И снова великий Borland или кто он щас там, показывает свою криворукость... Причина оказалась  насколько я понял в компиляторе. Закрыл/открыл делфю, пошёл попил кофе и всё заработало. Обидно, пару тройку часов времени на эту глупость убил. Это из области монитор протёр, мышку почистил, сделал музыку потише и заработало :) Уже кста в D2007 не первый раз с такими граблями сталкиваюсь

Спасибо!

---

Юрий Зотов   (2008-01-10 18:56:00) [2]

Попробуйте просто MainForm.Update после MainForm.Show

---

Nil   (2008-01-10 18:49:00) [3]

> что делает InitContent


InitContent заполняет содержимое фрейма, на его отображение влиять не должно. Грубо говоря в InitContent заполняются Label.Caption фрейма и больше ничего.


> Чему при вызове SetVisibleFrame равен InitFlag


InitFlag=True

---

Юрий Зотов   (2008-01-10 18:40:00) [4]

Чему при вызове SetVisibleFrame равен InitFlag и что делает InitContent?

---

Nil   (2008-01-10 18:24:00) [5]

Недорассказал :)

Потом юзер тыкает по значку в трее, я делаю MainForm.Show чтобы показать окошко, но появляется пустое окошко без ожидаемого видимого фрейма, который должен был активироваться в OnCreate формы при её создании.

Пробовал всё то что делается в OnCreate формы при её создании засунуть в OnActivate, не результата нет.. SetVisibleFrame вызывается, удачно выставляются все парметры фрейма, но он так и не показывается

Вот, теперь вроде более точно описал

---

Palladin   (2008-01-10 18:03:00) [6]

упс... прошу прощения... инверт в голове сработал...

---

Юрий Зотов   (2008-01-10 18:03:00) [7]

Если не виден родительский контрол, то не видны и его дочерние контролы.

---

Palladin   (2008-01-10 18:03:00) [8]

а... нет, не сработал :) все правильно я сказал :)

---

Palladin   (2008-01-10 18:02:00) [9]

ты интересный такой, а где он должен показываться? ты же скрыл главную форму

---

Наверх