Application.ShowMainForm := False; и TFrame

← →
Nil (2008-01-10 18:00) [0]

На главной форме есть 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

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

← →
Palladin © (2008-01-10 18:02) [1]

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

← →
Palladin © (2008-01-10 18:03) [2]

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

← →
Юрий Зотов © (2008-01-10 18:03) [3]

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

← →
Palladin © (2008-01-10 18:03) [4]

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

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

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

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

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

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

← →
Юрий Зотов © (2008-01-10 18:40) [6]

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

← →
Nil (2008-01-10 18:49) [7]

> что делает InitContent

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

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

InitFlag=True

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

← →
Nil (2008-01-10 19:50) [9]

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

Спасибо!

Application.ShowMainForm := False; и TFrame Найти похожие ветки