Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];




Вниз

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


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.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.027 c
1-57076           DenK_vrtz             2002-02-01 13:33  2002.02.18  
Вопросик про Create формы


3-56978           kengura               2002-01-23 11:37  2002.02.18  
Работа с текстовым BLOB полем


1-57139           ATLANTIDO             2002-02-03 19:32  2002.02.18  
TStringList


3-57018           Dinara                2002-01-24 21:17  2002.02.18  
Приложение с БД


1-57073           Злой_Гном             2002-02-01 18:23  2002.02.18  
Все, про ProgressBar дотумкал :-)))