Создание формы приводит к ее появлению
Loxly © (2002-02-03 19:57:00)
Каким-то образом вызов 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:00) [1]
Установи свойство формы TFormGoodSale.Visible в инспекторе
объектов в False.
Наверх 
ЧАТ |
Орешник |
|
