Создание формы приводит к ее появлению

← →
Loxly (2002-02-03 19:57) [0]

Каким-то образом вызов TForm.Create приводит к вызову TForm.Show

Уважаемые Мастера, не пойму в чем проблема. Программно создаю форму:
procedure TFormMain.miSaleOpenClick(Sender: TObject); var Form:TFormGoodSale; begin try Form:=TFormGoodSale.Create(nil); Form.Close; Form.ShowModal; finally Form.Free; end; end;
При выполнении строки
Form:=TFormGoodSale.Create(nil);
форма появляется, как если бы я вызвал Form.Show; Приходится делать
Form:=TFormGoodSale.Create(nil); Form.Close; Form.ShowModal;
что крайне нежелательно, т.к. в OnShow формы выполняется SQL-запрос.
Форма TFormGoodSale унаследована от созданной мною формы TRegistryForm, сохраняющей свои настройки в реестре. В проекте есть еще несколько форм, потомков TRegistryForm, создаваемых программно. Все они работают без глюков.
Что можно посоветовать в такой ситуации? Может у кого-нибудь возникали похожие поблемы?

← →
Владислав (2002-02-04 07:55) [1]

Установи свойство формы TFormGoodSale.Visible в инспекторе объектов в False.

Создание формы приводит к ее появлению Найти похожие ветки