Главная страница
    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.008 c
3-70132
Александр - Админ
2003-04-30 15:36
2003.05.22
Подскажите как достать даннаые из DataSource


14-70454
Mirva
2003-05-03 06:03
2003.05.22
Подскажите алгоритм


14-70468
Loki
2003-05-03 12:07
2003.05.22
TWebbrowser


14-70471
MasterA
2003-05-03 20:16
2003.05.22
Создание Help


1-70283
Deus
2003-05-11 16:55
2003.05.22
Ошибка Internal Error: L594.





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