Работа с несколькими формами

[zmey31313]

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

[Vladya]

Вот код, я по этому примеру делал заставку для программы, но если немножко подправить все будет гуд

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls;

type
  TForm2 = class(TForm)
    Image1: TImage;
    ProgressBar1: TProgressBar;
    Timer1: TTimer;

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
begin
Application.Initialize;
Form2:=TForm2.Create(Application); 
Form2.Show;
Form2.Update;
Sleep(5000);
Form2.Close;
Application.Run;
End.
end.

[raxp]

"project/options/forms" и сделайте нужную форму первой в списке (если не динамически конечно создаете)

[Adamrus]

предыдущее предложение проще! +1
нажми Ctrl+F12
выбери Project1
и там к примеру:

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.

[zmey31313]

Всё я с этим разобрался, а почему при нажатии на кнопку выход в верхнем правом углу НЕ на основной форме программа в принципе закрывается, но если смотреть в диспечере задач она остаёться в процессах как с этим разобраться? А то так после нескольки запусков программа не запускаеться пока в списке процессов не отключешь все её процессы.

[Пепел Феникса]

если закрываете не основную форму то закрывайте всю прогу(там можно сунуть дополнительные проверки)

[Adamrus]

у меня такой проблемы не возникло.
Попробуй в событии,

Form2.close

написать

Application.Destroying;

[zmey31313]

Неа чет не хочет.

[JnK]

Сообщение от zmey31313

Неа чет не хочет.

не у основной.
Функция: Close.
пропишите:

Application.Terminate;

или можно закрывать основную форму типа

Form1.Close;

[zmey31313]

А как можно перепрограммировать кнопку выход в верхнем правом углу формы