Приложение (Электронная книга) зависает при запуске

ребята помогите я создаю электронную книгу на делфи xe7 и у меня примерно 50 form и на run нажимаю оно зависает на простом тож попроговал 2007 тоже самое что можно сделать помогите...

0

кто ж знает твой код

телепатор сообщает что все твои 50 форм никто не удалил из автосоздания
и пока они все создаются, юзеры идут пить кофе

а с другой стороны мне шепчет опыт что если в приложении столько форм , значит достаточно 3-4, а остальные - бесполезные копии одной

1

krapotkin, к слову об удалить из автосоздания
как это сделать? а то у меня есть проект в котором 6 форм, но мне не нравться что они создаються с запуском программы хоть и не отображаются..

0

Project - Options - Forms

0

никто не удалил form и на авто созданий тож норм прост компиляция идет у меня но медленно уже 1 день жду не запускается

Добавлено через 1 минуту
unit Unit3;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Imaging.jpeg, Vcl.ExtCtrls,
Vcl.Menus, TntMenus;

type
TForm3 = class(TForm)
Image1: TImage;
TntMainMenu1: TTntMainMenu;
N44: TTntMenuItem;
N11: TTntMenuItem;
N1: TTntMenuItem;
N2: TTntMenuItem;
N3: TTntMenuItem;
N4: TTntMenuItem;
N5: TTntMenuItem;
N6: TTntMenuItem;
N7: TTntMenuItem;
N8: TTntMenuItem;
N21: TTntMenuItem;
N9: TTntMenuItem;
N10: TTntMenuItem;
N12: TTntMenuItem;
N13: TTntMenuItem;
N14: TTntMenuItem;
N31: TTntMenuItem;
N15: TTntMenuItem;
N16: TTntMenuItem;
N17: TTntMenuItem;
N18: TTntMenuItem;
N19: TTntMenuItem;
N20: TTntMenuItem;
N22: TTntMenuItem;
N23: TTntMenuItem;
N51: TTntMenuItem;
N24: TTntMenuItem;
N25: TTntMenuItem;
N26: TTntMenuItem;
N27: TTntMenuItem;
N28: TTntMenuItem;
N29: TTntMenuItem;
N30: TTntMenuItem;
N32: TTntMenuItem;
N33: TTntMenuItem;
N34: TTntMenuItem;
N35: TTntMenuItem;
N36: TTntMenuItem;
N6nfhfe1: TTntMenuItem;
N37: TTntMenuItem;
N38: TTntMenuItem;
N39: TTntMenuItem;
N40: TTntMenuItem;
N61: TTntMenuItem;
N41: TTntMenuItem;
N42: TTntMenuItem;
N43: TTntMenuItem;
procedure FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
procedure FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
procedure N44Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N18Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure N22Click(Sender: TObject);
procedure N23Click(Sender: TObject);
procedure N24Click(Sender: TObject);
procedure N25Click(Sender: TObject);
procedure N26Click(Sender: TObject);
procedure N27Click(Sender: TObject);
procedure N28Click(Sender: TObject);
procedure N29Click(Sender: TObject);
procedure N30Click(Sender: TObject);
procedure N32Click(Sender: TObject);
procedure N33Click(Sender: TObject);
procedure N34Click(Sender: TObject);
procedure N35Click(Sender: TObject);
procedure N36Click(Sender: TObject);
procedure N37Click(Sender: TObject);
procedure N38Click(Sender: TObject);
procedure N39Click(Sender: TObject);
procedure N40Click(Sender: TObject);
procedure N41Click(Sender: TObject);
procedure N42Click(Sender: TObject);
procedure N43Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;

implementation

{$R *.dfm}

uses Unit14, Unit15, Unit16, Unit17, Unit19, Unit20, Unit21, Unit22, Unit23,
Unit24, Unit25, Unit26, Unit28, Unit29, Unit30, Unit31, Unit32, Unit33, Unit4,
Unit34, Unit35, Unit36, Unit37, Unit38, Unit39, Unit41, Unit42, Unit43, Unit5,
Unit44, Unit46, Unit47, Unit48, Unit1, Unit6, Unit7, Unit8, Unit9, Unit10,
Unit13;

procedure TForm3.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
VertScrollBar.Position:=VertScrollBar.Po sition+30;
end;

procedure TForm3.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
VertScrollBar.Position:=VertScrollBar.Po sition-30;
end;

procedure TForm3.N10Click(Sender: TObject);
begin
form3.Hide;
form14.show;
end;

procedure TForm3.N12Click(Sender: TObject);
begin
form3.Hide;
form15.show;
end;

procedure TForm3.N13Click(Sender: TObject);
begin
form3.Hide;
form16.show;
end;

procedure TForm3.N14Click(Sender: TObject);
begin
form3.Hide;
form17.show;
end;

procedure TForm3.N15Click(Sender: TObject);
begin
form3.Hide;
form19.show;
end;

procedure TForm3.N16Click(Sender: TObject);
begin
form3.Hide;
form20.show;
end;

procedure TForm3.N17Click(Sender: TObject);
begin
form3.Hide;
form21.show;
end;

procedure TForm3.N18Click(Sender: TObject);
begin
form3.Hide;
form22.show;
end;

procedure TForm3.N19Click(Sender: TObject);
begin
form3.Hide;
form23.show;
end;

procedure TForm3.N1Click(Sender: TObject);
begin
form3.Hide;
form3.show;
end;

procedure TForm3.N20Click(Sender: TObject);
begin
form3.Hide;
form24.show;
end;

procedure TForm3.N22Click(Sender: TObject);
begin
form3.Hide;
form25.show;
end;

procedure TForm3.N23Click(Sender: TObject);
begin
form3.Hide;
form26.show;
end;

procedure TForm3.N24Click(Sender: TObject);
begin
form3.Hide;
form28.show;
end;

procedure TForm3.N25Click(Sender: TObject);
begin
form3.Hide;
form29.show;
end;

procedure TForm3.N26Click(Sender: TObject);
begin
form3.Hide;
form30.show;
end;

procedure TForm3.N27Click(Sender: TObject);
begin
form3.Hide;
form31.show;
end;

procedure TForm3.N28Click(Sender: TObject);
begin
form3.Hide;
form32.show;
end;

procedure TForm3.N29Click(Sender: TObject);
begin
form3.Hide;
form33.show;
end;

procedure TForm3.N2Click(Sender: TObject);
begin
form3.Hide;
form4.show;
end;

procedure TForm3.N30Click(Sender: TObject);
begin
form3.Hide;
form34.show;
end;

procedure TForm3.N32Click(Sender: TObject);
begin
form3.Hide;
form35.show;
end;

procedure TForm3.N33Click(Sender: TObject);
begin
form3.Hide;
form36.show;
end;

procedure TForm3.N34Click(Sender: TObject);
begin
form3.Hide;
form37.show;
end;

procedure TForm3.N35Click(Sender: TObject);
begin
form3.Hide;
form38.show;
end;

procedure TForm3.N36Click(Sender: TObject);
begin
form3.Hide;
form39.show;
end;

procedure TForm3.N37Click(Sender: TObject);
begin
form3.Hide;
form41.show;
end;

procedure TForm3.N38Click(Sender: TObject);
begin
form3.Hide;
form42.show;
end;

procedure TForm3.N39Click(Sender: TObject);
begin
form3.Hide;
form43.show;
end;

procedure TForm3.N3Click(Sender: TObject);
begin
form3.Hide;
form5.show;
end;

procedure TForm3.N40Click(Sender: TObject);
begin
form3.Hide;
form44.show;
end;

procedure TForm3.N41Click(Sender: TObject);
begin
form3.Hide;
form46.show;
end;

procedure TForm3.N42Click(Sender: TObject);
begin
form3.Hide;
form47.show;
end;

procedure TForm3.N43Click(Sender: TObject);
begin
form3.Hide;
form48.show;
end;

procedure TForm3.N44Click(Sender: TObject);
begin
form3.Hide;
form1.show;
end;

procedure TForm3.N4Click(Sender: TObject);
begin
form3.Hide;
form6.show;
end;

procedure TForm3.N5Click(Sender: TObject);
begin
form3.Hide;
form7.show;
end;

procedure TForm3.N6Click(Sender: TObject);
begin
form3.Hide;
form8.show;
end;

procedure TForm3.N7Click(Sender: TObject);
begin
form3.Hide;
form9.show;
end;

procedure TForm3.N8Click(Sender: TObject);
begin
form3.Hide;
form10.show;
end;

procedure TForm3.N9Click(Sender: TObject);
begin
form3.Hide;
form13.show;
end;

end.

0

выдели весь код и запиши его между тэгов

0

Сообщение от Margulan kidirb procedure TForm3.N1Click(Sender: TObject); begin form3.Hide; form3.show; end;

А это для чего?

0

Сообщение от krapotkin телепатор сообщает что все твои 50 форм

ты знал про 40 форм

0