Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.18;
Скачать: CL | DM;

Вниз

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

 
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.



Страницы: 1 вся ветка

Текущий архив: 2002.02.18;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.008 c
4-57257
pin
2001-12-18 19:19
2002.02.18
Как отловить правый клик мышки...


1-57087
Егор
2002-01-31 04:25
2002.02.18
DCOM


6-57174
Almaz
2001-11-27 01:16
2002.02.18
Создание сети через dial-up


14-57221
ProfiUgl
2001-12-27 16:07
2002.02.18
Откуда можно скачать Update Pack 1 для Delphi5 и ADO Express Update 1 и 2


6-57176
Victor
2001-11-30 12:42
2002.02.18
Socket