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




Вниз

Открыть форму... 


wHammer   (2002-04-16 13:41) [0]

У меня затруднение. Необходимо открыть одну форму (второстепенную), в ней выбрать кой-какие параметры, затем эту форму уничтожить раз и навсегда, открыть другую (главную), уже до конца работы программы. Проблемы со свертыванием окна на панель задач.



Song   (2002-04-16 13:42) [1]

на onClose второстепенной формы указать Action:=caFree;



wHammer   (2002-04-16 14:32) [2]

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



Song   (2002-04-16 14:34) [3]

TApplication.MainForm
TApplication.ShowMainForm



shane54   (2002-04-16 14:36) [4]

В Project Options в закладке Forms поставь AutoCreate Form нужную тебе форму. Только помни, что первая открывшаяся форма становится ГЛАВНОЙ формой со всеми вытекающими отсюда последствиями (в твоем случае - при закрытии ГЛАВНОЙ формы программа прекращает работу...)



wHammer   (2002-04-16 14:42) [5]

Отлично, то что надо!!!



wHammer   (2002-04-16 14:46) [6]

...век живи, век учись, а об ShowMainForm ничего не знал. Спасибо Song.



Виктор Щербаков   (2002-04-16 14:51) [7]

program Project1;

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

{$R *.RES}

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

Form2 не должна создаваться автоматически




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




Наверх





Память: 0.72 MB
Время: 0.031 c
1-94458           Explorer              2002-04-16 06:56  2002.04.29  
Как воплотить идею моего бухгалтера?????


4-94625           alexey1               2002-02-23 20:06  2002.04.29  
хуки и shellproc


14-94546          yakshe                2002-03-05 04:37  2002.04.29  
Необычный вопрос.


1-94500           Arhangel              2002-04-16 19:04  2002.04.29  
Help!!


7-94601           Albun                 2002-01-31 23:33  2002.04.29  
USB Программирование