Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.



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

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

Наверх





Память: 0.44 MB
Время: 0.004 c
14-57206
Himler
2001-12-27 22:15
2002.02.18
Как вы зарабатывали когда были студентом?


4-57254
ikar
2001-12-19 10:10
2002.02.18
Передача сообщения своей программе


6-57166
amamed_3071
2001-11-28 08:27
2002.02.18
Послат сообшения на порт не имея Remote acces


1-57049
Ura
2002-02-01 18:37
2002.02.18
Опять потоки. Круговорот.


14-57217
Merlin
2001-12-26 11:29
2002.02.18
Хороший программист характеризуется умением доказать почему задачу невозможно выполнить, когда ему просто лень её выполнять...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский