Главная форма в Delphi

@darottee · Регистрация: 18.05.2013

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста!
При создании проекта создала форму. По сути она должна быть главной. Так и было и проект запускался с этой формы. Но после редактирование проекта(дизайн, добавление других функций), проект начал запускаться с другой формы. В Project-Options-Forms-главной указана первоначальная форма. Как сделать так, чтобы проект запускался с главной формы, а не с второстепенной?

@cotseec · 20.05.2013, 19:04

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

чтобы проект запускался с главной формы, а не с второстепенной?

что прописано в OnCreate, OnResize, OnPaint, OnActivate и OnShow (если есть) формы, которая в

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

В Project-Options-Forms-главной указана первоначальная форма.

может там отображается как раз "второстепенная" форма в модальном исполнении?

@darottee · 20.05.2013, 19:09 **[ТС]**

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

что прописано в OnCreate, OnResize, OnPaint, OnActivate и OnShow (если есть) формы, которая в

может там отображается как раз "второстепенная" форма в модальном исполнении?

Нет, указана первоначальная, а в OnCreate, OnResize, OnPaint, OnActivate и OnShow ничего не прописано

@cotseec · 20.05.2013, 19:11

покажи файл проекта (который с раширением *.dpr) и напиши какое имя у главной формы

@darottee · 20.05.2013, 19:18 **[ТС]**

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

покажи файл проекта (который с раширением *.dpr) и напиши какое имя у главной формы

Delphi

program Project3;
 
uses
  Forms,
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4},
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit5 in 'Unit5.pas' {Form5},
  Unit6 in 'Unit6.pas' {Form6},
  Unit7 in 'Unit7.pas' {Form7},
  Unit8 in 'Unit8.pas' {Form8},
  Unit9 in 'Unit9.pas' {Form9},
  Unit10 in 'Unit10.pas' {Form10},
  Unit11 in 'Unit11.pas' {Form11},
  Unit12 in 'Unit12.pas' {Form12},
  Unit13 in 'Unit13.pas' {Form13},
  Unit14 in 'Unit14.pas' {Form14},
  Unit15 in 'Unit15.pas' {Form15},
  Unit16 in 'Unit16.pas' {Form16},
  Unit17 in 'Unit17.pas' {Form17},
  Unit18 in 'Unit18.pas' {Form18},
  Unit19 in 'Unit19.pas' {Form19},
  Unit20 in 'Unit20.pas' {Form20},
  Unit21 in 'Unit21.pas' {Form21},
  Unit22 in 'Unit22.pas' {Form22},
  Unit23 in 'Unit23.pas' {Form23},
  Unit24 in 'Unit24.pas' {Form24},
  Unit25 in 'Unit25.pas' {Form25};
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm6, Form6);
  Application.CreateForm(TForm7, Form7);
  Application.CreateForm(TForm8, Form8);
  Application.CreateForm(TForm9, Form9);
  Application.CreateForm(TForm10, Form10);
  Application.CreateForm(TForm11, Form11);
  Application.CreateForm(TForm12, Form12);
  Application.CreateForm(TForm13, Form13);
  Application.CreateForm(TForm14, Form14);
  Application.CreateForm(TForm15, Form15);
  Application.CreateForm(TForm16, Form16);
  Application.CreateForm(TForm17, Form17);
  Application.CreateForm(TForm18, Form18);
  Application.CreateForm(TForm19, Form19);
  Application.CreateForm(TForm20, Form20);
  Application.CreateForm(TForm21, Form21);
  Application.CreateForm(TForm22, Form22);
  Application.CreateForm(TForm23, Form23);
  Application.CreateForm(TForm24, Form24);
  Application.CreateForm(TForm25, Form25);
  Application.Run;
end.

_________________
unit3-главная форма

@cotseec · 20.05.2013, 19:23

тут все нормально, первой создается Form3 - главная, значит по коду Unit3 смотреть надо

@darottee · 20.05.2013, 19:26 **[ТС]**

Delphi

unit Unit3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, pngimage, ExtCtrls;
 
type
  TForm3 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Timer1: TTimer;
    Image1: TImage;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1MouseEnter(Sender: TObject);
    procedure Button1MouseLeave(Sender: TObject);
    procedure Button2MouseEnter(Sender: TObject);
    procedure Button3MouseEnter(Sender: TObject);
    procedure Button2MouseLeave(Sender: TObject);
    procedure Button3MouseLeave(Sender: TObject);
    procedure Button4MouseEnter(Sender: TObject);
    procedure Button4MouseLeave(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form3: TForm3;
  i:integer;
 
implementation
uses unit4, unit7, unit25;
{$R *.dfm}
 
procedure TForm3.Button1Click(Sender: TObject);
begin
form4.Show;
end;
 
procedure TForm3.Button1MouseEnter(Sender: TObject);
begin
button1.Left:=button1.Left-15;
button1.top:=button1.top-15;
button1.width:=button1.width+30;
button1.height:=button1.height+30;
end;
 
procedure TForm3.Button1MouseLeave(Sender: TObject);
begin
button1.Left:=button1.Left+15;
button1.top:=button1.top+15;
button1.width:=button1.width-30;
button1.height:=button1.height-30;
end;
 
procedure TForm3.Button2Click(Sender: TObject);
begin
form7.show;
end;
 
procedure TForm3.Button2MouseEnter(Sender: TObject);
begin
button2.Left:=button2.Left-15;
button2.top:=button2.top-15;
button2.width:=button2.width+30;
button2.height:=button2.height+30;
end;
 
procedure TForm3.Button2MouseLeave(Sender: TObject);
begin
button2.Left:=button2.Left+15;
button2.top:=button2.top+15;
button2.width:=button2.width-30;
button2.height:=button2.height-30;
end;
 
procedure TForm3.Button3Click(Sender: TObject);
begin
Form25.Show;
end;
 
procedure TForm3.Button3MouseEnter(Sender: TObject);
begin
button3.Left:=button3.Left-15;
button3.top:=button3.top-15;
button3.width:=button3.width+30;
button3.height:=button3.height+30;
end;
 
procedure TForm3.Button3MouseLeave(Sender: TObject);
begin
button3.Left:=button3.Left+15;
button3.top:=button3.top+15;
button3.width:=button3.width-30;
button3.height:=button3.height-30;
end;
 
procedure TForm3.Button4Click(Sender: TObject);
begin
close;
end;
 
procedure TForm3.Button4MouseEnter(Sender: TObject);
begin
button4.Left:=button4.Left-15;
button4.top:=button4.top-15;
button4.width:=button4.width+30;
button4.height:=button4.height+30;
end;
 
procedure TForm3.Button4MouseLeave(Sender: TObject);
begin
button4.Left:=button4.Left+15;
button4.top:=button4.top+15;
button4.width:=button4.width-30;
button4.height:=button4.height-30;
end;
 
procedure TForm3.Timer1Timer(Sender: TObject);
begin
for i := 1 to 10 do
  if image1.Left < form3.width then
  image1.Left:=image1.Left+5 else
  image1.Left:=-image1.Left;
end;
 
end.
________________________________
код главной, а вот код, с которой запускается программа:
 
unit Unit21;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;
 
type
  TForm21 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    Button1: TButton;
    Image2: TImage;
    Image3: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button1MouseEnter(Sender: TObject);
    procedure Button1MouseLeave(Sender: TObject);
    procedure Image1MouseEnter(Sender: TObject);
    procedure Image1MouseLeave(Sender: TObject);
    procedure Image2MouseEnter(Sender: TObject);
    procedure Image2MouseLeave(Sender: TObject);
    procedure Image3MouseEnter(Sender: TObject);
    procedure Image3MouseLeave(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form21: TForm21;
 
implementation
  uses unit3;
{$R *.dfm}
 
procedure TForm21.Button1Click(Sender: TObject);
begin
form21.Visible:=false;
form3.Show;
end;
 
procedure TForm21.Button1MouseEnter(Sender: TObject);
begin
button1.Left:=button1.Left-15;
button1.top:=button1.top-15;
button1.width:=button1.width+30;
button1.height:=button1.height+30;
end;
 
procedure TForm21.Button1MouseLeave(Sender: TObject);
begin
button1.Left:=button1.Left+15;
button1.top:=button1.top+15;
button1.width:=button1.width-30;
button1.height:=button1.height-30;
end;
 
procedure TForm21.Image1MouseEnter(Sender: TObject);
begin
image1.Left:=image1.Left-15;
image1.top:=image1.top-15;
image1.width:=image1.width+30;
image1.height:=image1.height+30;
end;
 
procedure TForm21.Image1MouseLeave(Sender: TObject);
begin
image1.Left:=image1.Left+15;
image1.top:=image1.top+15;
image1.width:=image1.width-30;
image1.height:=image1.height-30;
end;
 
procedure TForm21.Image2MouseEnter(Sender: TObject);
begin
image2.Left:=image2.Left-15;
image2.top:=image2.top-15;
image2.width:=image2.width+30;
image2.height:=image2.height+30;
end;
 
procedure TForm21.Image2MouseLeave(Sender: TObject);
begin
image2.Left:=image2.Left+15;
image2.top:=image2.top+15;
image2.width:=image2.width-30;
image2.height:=image2.height-30;
end;
 
procedure TForm21.Image3MouseEnter(Sender: TObject);
begin
image3.Left:=image3.Left-15;
image3.top:=image3.top-15;
image3.width:=image3.width+30;
image3.height:=image3.height+30;
end;
 
procedure TForm21.Image3MouseLeave(Sender: TObject);
begin
image3.Left:=image3.Left+15;
image3.top:=image3.top+15;
image3.width:=image3.width-30;
image3.height:=image3.height-30;
end;
 
end.

@cotseec · 20.05.2013, 19:29

ребус, блин.....кинь весь проект в архиве, чтобы можно было в IDE Delphi открыть и не забывай про теги в сообщениях - код легче воспринимать

@darottee · 20.05.2013, 19:41 **[ТС]**

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

ребус, блин.....кинь весь проект в архиве, чтобы можно было в IDE Delphi открыть и не забывай про теги в сообщениях - код легче воспринимать

Даже в архивированном виде не грузится, слишком много весит

Спасибо вам за потраченное время!)

@cotseec · 20.05.2013, 19:48

не за что

уже самому интересно - где собака порылась..... напишите мне в аську или скайп, если уж проект на форум не вмещается, потом отпишусь как решили проблему

@NotBeginner · 21.05.2013, 12:20

попробуй без Application.MainFormOnTaskbar := True;

@саша40 · 21.05.2013, 22:03

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

Помогите пожалуйста!
При создании проекта создала форму. По сути она должна быть главной. Так и было и проект запускался с этой формы. Но после редактирование проекта(дизайн, добавление других функций), проект начал запускаться с другой формы. В Project-Options-Forms-главной указана первоначальная форма. Как сделать так, чтобы проект запускался с главной формы, а не с второстепенной?

Сделать так, чтобы "главная форма" создавалась первой. Project-View Source в помощь

@darottee 0 / 0 / 0 Регистрация: 18.05.2013 Сообщений: 8
		1
	Главная форма в Delphi 20.05.2013, 18:59. Показов 2265. Ответов 11 Метки нет (Все метки) Помогите пожалуйста! При создании проекта создала форму. По сути она должна быть главной. Так и было и проект запускался с этой формы. Но после редактирование проекта(дизайн, добавление других функций), проект начал запускаться с другой формы. В Project-Options-Forms-главной указана первоначальная форма. Как сделать так, чтобы проект запускался с главной формы, а не с второстепенной? 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	20.05.2013, 19:04	2
	Сообщение от darottee чтобы проект запускался с главной формы, а не с второстепенной? что прописано в OnCreate, OnResize, OnPaint, OnActivate и OnShow (если есть) формы, которая в Сообщение от darottee В Project-Options-Forms-главной указана первоначальная форма. может там отображается как раз "второстепенная" форма в модальном исполнении? 0

@darottee 0 / 0 / 0 Регистрация: 18.05.2013 Сообщений: 8
	20.05.2013, 19:09 [ТС]	3
	Сообщение от cotseec что прописано в OnCreate, OnResize, OnPaint, OnActivate и OnShow (если есть) формы, которая в может там отображается как раз "второстепенная" форма в модальном исполнении? Нет, указана первоначальная, а в OnCreate, OnResize, OnPaint, OnActivate и OnShow ничего не прописано 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	20.05.2013, 19:11	4
	покажи файл проекта (который с раширением *.dpr) и напиши какое имя у главной формы 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	20.05.2013, 19:23	6
	тут все нормально, первой создается Form3 - главная, значит по коду Unit3 смотреть надо 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	20.05.2013, 19:29	8
	ребус, блин.....кинь весь проект в архиве, чтобы можно было в IDE Delphi открыть и не забывай про теги в сообщениях - код легче воспринимать 1

@darottee 0 / 0 / 0 Регистрация: 18.05.2013 Сообщений: 8
	20.05.2013, 19:41 [ТС]	9
	Сообщение от cotseec ребус, блин.....кинь весь проект в архиве, чтобы можно было в IDE Delphi открыть и не забывай про теги в сообщениях - код легче воспринимать Даже в архивированном виде не грузится, слишком много весит Спасибо вам за потраченное время!) 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	20.05.2013, 19:48	10
	не за что уже самому интересно - где собака порылась..... напишите мне в аську или скайп, если уж проект на форум не вмещается, потом отпишусь как решили проблему 0

@NotBeginner 174 / 160 / 71 Регистрация: 22.02.2013 Сообщений: 1,769 Записей в блоге: 2
	21.05.2013, 12:20	11
	попробуй без Application.MainFormOnTaskbar := True; 0

@саша40 157 / 300 / 47 Регистрация: 14.08.2012 Сообщений: 2,578
	21.05.2013, 22:03	12
	Сообщение от darottee Помогите пожалуйста! При создании проекта создала форму. По сути она должна быть главной. Так и было и проект запускался с этой формы. Но после редактирование проекта(дизайн, добавление других функций), проект начал запускаться с другой формы. В Project-Options-Forms-главной указана первоначальная форма. Как сделать так, чтобы проект запускался с главной формы, а не с второстепенной? Сделать так, чтобы "главная форма" создавалась первой. Project-View Source в помощь 0

Опции темы