![]()  | 
	
 
  | 
| 
		 
			 
			#1  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 Требуется главной формой сделать другую, т.е. из начально у меня главной формой у меня была 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.Последний раз редактировалось qwwwq, 13.01.2009 в 12:41.  |