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

Вниз

Формы   Найти похожие ветки 

 
Hitkliff ©   (2006-04-27 17:14) [0]

Вопрос может показаться глупым! но всетаки как поменять порядок загрузки форм! Чтобы вначале загружалась не первая форма а например 5-ая??? Знаю можно так сделать, но вот не знаю как!


 
Плохиш ©   (2006-04-27 17:18) [1]

Файл проекта открой и посмотри.


 
Hitkliff ©   (2006-04-27 17:19) [2]

всмысле?


 
sicilla ©   (2006-04-27 18:03) [3]

Открой project option в меню, тама выбери основную форму.


 
Vlad ©   (2006-04-27 18:12) [4]


> Hitkliff ©   (27.04.06 17:19) [2]
> всмысле?


.dpr


 
ЮЮ ©   (2006-04-28 03:22) [5]


> не первая форма а например 5-ая


Пересчитай из с другой стороны и 5-ая станет первой.
В приложении может быть только одна главная форма. Её закрытие означает закрытие приложения. Первая созданная форма я вляется главной формой приложения (см. Project Source). Для недостаточно опытных персон лучше не править сам код проекта, у установить главную форму с помощью Дельфи: закладка Project>Optioms>Forms


 
balepa ©   (2006-04-28 07:00) [6]

Hitkliff купи уже книжку по дельфи хоть где учат за 21 секунду и много подобных вопросов отпадет.


 
Думкин ©   (2006-04-28 07:24) [7]

Если телепатировать и получить телепатему, что показать лучше сразу 5-ю, а не первую, которая главная, то можно поиграть со свойством показа MainForm.
При этом видимо имеется в виду прямой ход - когда все формы создаются сразу в *.dpr
При этом надо обеспечить показ той самой пятой при Application.Run() или в еще где...и подумать о том как будем заканчивать приложение.


 
Юрий Зотов ©   (2006-04-28 07:52) [8]

> ЮЮ ©   (28.04.06 03:22) [5]
> Первая созданная форма является главной формой приложения

Неточно. Главной формой приложения является первая созданная форма, у которой владелец - Application.

> Hitkliff

Создайте в новом проекте 2 формы. Первую (Unit1, TForm1) - пустую, а на вторую (Unit2, TForm2) положите кнопки "OK" (Button1) и "Отмена" (Button2). В Инспекторе Объектов установите этим кнопкам в свойстве ModalResult значения mrOK (для Button1) и mrCancel (для Button2). В меню Delphi откройте диалог опций проекта (Project | Options), в нем на вкладке Forms переместите Form2 из левого окошка в правое и нажмите OK. В модуле Unit2 удалите 2 строки c объявлением переменной Form2. Сохраните проект.

Теперь подготовительные работы закончены и можно приступать к созданию формы, которая будет загружаться первой, но не будет главной. Откройте код проекта (Project | View Source) и руками поправьте его. Он должен стать таким:

program Project1;

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

{$R *.res}

begin
 with TForm2.Create(nil) do
   if ShowModal = mrOK then
   begin
     Free;
     Application.Initialize;
     Application.CreateForm(TForm1, Form1);
     Application.Run
   end
   else
     Free
end.

Все, программу можно запускать. При этом первой появится форма TForm2 (например, она может служить диалогом для ввода пароля), но главной она не будет. Если в ней нажимаем кнопку "OK", то появляется главная форма (TForm1) и далее программа работает как обычно. А если нажимаем кнопку "Отмена", то программа просто завершается, не создавая никакой главной формы совсем. И в любом случае форма TForm2 уничтожается, освобождая занятые ею системные ресурсы.



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

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

Наверх





Память: 0.47 MB
Время: 0.012 c
2-1146745006
olevacho_
2006-05-04 16:16
2006.05.21
формат данных для TiDHTTP.POST


4-1140768419
Боян Георгиев
2006-02-24 11:06
2006.05.21
Получить иконы из system tray


2-1146230106
Raptoridzevv
2006-04-28 17:15
2006.05.21
прозрачная форма


15-1145917789
Гость, однако!
2006-04-25 02:29
2006.05.21
Логотип


2-1146986111
Vitalik__
2006-05-07 11:15
2006.05.21
Управление средствами ввода-вывода





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