Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.05.22;
Скачать: [xml.tar.bz2];

Вниз

Как сделать так, чтобы программа запускалась не с главной формы,   Найти похожие ветки 

 
Marina_S   (2003-05-10 21:27) [0]

Не могу начать свою программу не с главной формы. Делать главную форму невидимой не помогает. Как сделать так, чтобы программа запускалась с неглавной формы, при выключении которой запускалась бы главная? Заранее спасибо.


 
Song   (2003-05-10 21:36) [1]

В dpr надо написать

Application.Initialize;
With TForm2.Create Do
try
Application.CreateForm(TForm1,Form1);
ShowModal;
finally
Free;
end;
Application.Run;

И само собой убрать Form2 из списка автосоздающихся.


 
Vasiliy   (2003-05-10 21:53) [2]

Так Form1 появится первой

program Project1;

uses
Forms,
Unit1 in "Unit1.pas" {Form1},
Unit2 in "Unit2.pas" {Form2};

{$R *.RES}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.Run;
end.

А так Form2 появится первой

program Project1;

uses
Forms,
Unit1 in "Unit1.pas" {Form1},
Unit2 in "Unit2.pas" {Form2};

{$R *.RES}

begin
Application.Initialize;
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm1, Form1);
Application.Run;
end.


 
Song   (2003-05-11 10:25) [3]

>>А так Form2 появится первой
Правильно. Появится, но после закрытия программа закроется тоже. На Form1 управление не передастся.



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

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

Наверх





Память: 0.44 MB
Время: 0.007 c
14-70474
vic_vm
2003-05-03 18:05
2003.05.22
Как сделать в ToolBar чтобы названия на кнопках были справа


4-70566
Вадим
2003-03-23 23:37
2003.05.22
unicode & clipboard


3-70092
Igor Mish
2003-05-03 18:31
2003.05.22
Сетевая база


14-70526
snake1977
2003-05-05 12:26
2003.05.22
агрегативные функции


3-70191
Andrio
2003-05-04 13:15
2003.05.22
Организация цикла перебора записей в таблице TIBTable





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский