Требуется главной формой сделать другую, т.е. из начально у меня главной формой у меня была Unit1 а теперь нужно чтобы при запуске открывалась например сначало unit2, как правильно все поменять?
В Projecte я менял строчки, но при смене строчек активируются сразу две формы
Менял строчки
HomBuhUnit in 'HomBuhUnit.pas' {HomBuhForm}, на O_programmeUnit in 'O_programmeUnit.pas' {O_programme},
Application.CreateForm(THomBuhForm, HomBuhForm); на Application.CreateForm(TO_programme, O_programme);
вот мой project
Код:
program Project2;
uses
Forms,
HomBuhUnit in 'HomBuhUnit.pas' {HomBuhForm},
O_programmeUnit in 'O_programmeUnit.pas' {O_programme},
DataModule_Unit in 'DataModule_Unit.pas' {DataModule1: TDataModule},
Add_rasshodi_Unit in 'Add_rasshodi_Unit.pas' {Add_rashodi_Form},
Spisok_user_Unit in 'Spisok_user_Unit.pas' {Spisok_user_Form},
Add_edit_user_Unit in 'Add_edit_user_Unit.pas' {Add_edit_user_Form},
Valjuta_Unit in 'Valjuta_Unit.pas' {Valjuta_Form},
Add_edit_valjuta_Unit in 'Add_edit_valjuta_Unit.pas' {Add_edit_Valjuta_Form},
Spisok_valjut_Unit in 'Spisok_valjut_Unit.pas' {Spisok_valjuta_Form},
Add_edit_schet_Unit in 'Add_edit_schet_Unit.pas' {Add_edit_schet_Form},
Setting_Unit in 'Setting_Unit.pas' {Setting_Form},
Add_edit_dohodi_Unit in 'Add_edit_dohodi_Unit.pas' {Add_edit_dohodi_Form};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(THomBuhForm, HomBuhForm);
Application.CreateForm(TO_programme, O_programme);
Application.CreateForm(TDataModule1, DataModule1);
Application.CreateForm(TAdd_rashodi_Form, Add_rashodi_Form);
Application.CreateForm(TSpisok_user_Form, Spisok_user_Form);
Application.CreateForm(TAdd_edit_user_Form, Add_edit_user_Form);
Application.CreateForm(TValjuta_Form, Valjuta_Form);
Application.CreateForm(TAdd_edit_Valjuta_Form, Add_edit_Valjuta_Form);
Application.CreateForm(TSpisok_valjuta_Form, Spisok_valjuta_Form);
Application.CreateForm(TAdd_edit_schet_Form, Add_edit_schet_Form);
Application.CreateForm(TSetting_Form, Setting_Form);
Application.CreateForm(TAdd_edit_dohodi_Form, Add_edit_dohodi_Form);
Application.Run;
end.