как поменять главную форму в delphi.

← →
vitalik200888 (2009-06-16 10:49) [0]

у меня главная форма1. создал form4. хочу чтобыв она запускалась первая, и от туда запускать form1. как сделать???

← →
pest (2009-06-16 10:53) [1]

Project > Options > Forms > Main form

← →
Ega23 © (2009-06-16 10:53) [2]

> у меня главная форма1. создал form4. хочу чтобыв она запускалась
> первая, и от туда запускать form1. как сделать???

в .dpr порядок нужный выставить.

← →
Ega23 © (2009-06-16 10:54) [3]

> Project > Options > Forms > Main form

Это частный случай.

← →
pest (2009-06-16 10:56) [4]

решает его проблему

← →
Ega23 © (2009-06-16 11:02) [5]

> решает его проблему

Совершенно не обязательно, зависит от настроек.

← →
vitalik200888 (2009-06-16 11:06) [6]

прописываю в Form 4 : Form4.Hide;Form1.Show;
не принимает Form1.Show;почему???

← →
brother © (2009-06-16 11:12) [7]

> Form4.Hide;Form1.Show;

а наоборот?

← →
Игорь Шевченко © (2009-06-16 11:18) [8]

а что в dpr написано ? главная форма - это то, что первым создается по Application.CreateForm

Смотреть Demos\Db\MastApp

← →
vitalik200888 (2009-06-16 11:19) [9]

[Фатальная Ошибка] Project1.dpr(8): Could not compile used unit "Unit4.pas"

← →
vitalik200888 (2009-06-16 11:20) [10]

Это ошибка form.show;

← →
vitalik200888 (2009-06-16 11:22) [11]

program Project1;

uses
Forms,
Unit1 in "Unit1.pas" {Form1},
Unit2 in "Unit2.pas" {Form2},
Unit3 in "Unit3.pas" {Form3},
Unit4 in "Unit4.pas" {Form4};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm4, Form4);
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.Run;
end.

← →
MsGuns © (2009-06-16 11:27) [12]

Чукча писатель ?

← →
vitalik200888 (2009-06-16 11:31) [13]

что не так????

← →
Сергей М. © (2009-06-16 11:32) [14]

> и от туда

"от туда" - это принципиально ?

Можно ведь и "не от туда")

begin
Application.Initialize;
Application.ShowMainForm := False;
Application.CreateForm(TForm4, Form4); // отныне и до завершения приложения это - главная форма, она создастся невидимой
Application.CreateForm(TForm1, Form1); // а вот та самая форма1, она хоть и не главная и "не от туда", но ее ты увидишь первой, если ее св-во Visible в дизайн-тайм установить равным True
..
Application.Run;
end.

← →
vitalik200888 (2009-06-16 11:33) [15]

может тут что убрать надо???
из Form1:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ImgList, ComCtrls, ExtCtrls, DBCtrls, XPMan, Menus, Grids,
DBGrids, DB, StdCtrls, Mask, ToolWin,Unit2, ExtDlgs,Unit3,Jpeg, DBTables;

type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
MainMenu1: TMainMenu;
N1: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
About1: TMenuItem;
XPManifest1: TXPManifest;
PageControl1: TPageControl;
ToolBar1: TToolBar;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ImageList1: TImageList;
OpenPictureDialog1: TOpenPictureDialog;
N10: TMenuItem;
N11: TMenuItem;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
DBNavigator1: TDBNavigator;
DataSource1: TDataSource;
Query2: TQuery;
Table2: TTable;
Label19: TLabel;
TabSheet1: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label13: TLabel;
Label16: TLabel;
Label8: TLabel;
DBEdit1: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit6: TDBEdit;
DBEdit8: TDBEdit;
DBEdit13: TDBEdit;
GroupBox1: TGroupBox;
DBMemo1: TDBMemo;
DBEdit7: TDBEdit;
DBEdit14: TDBEdit;
DBEdit5: TDBEdit;
DBEdit2: TDBEdit;
procedure N8Click(Sender: TObject);
procedure About1Click(Sender: TObject);

procedure N6Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N11Click(Sender: TObject);

procedure FormActivate(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
save, fileSave: boolean;

← →
brother © (2009-06-16 11:35) [16]

> uses
> Windows, Messages, SysUtils, Variants, Classes, Graphics,
> Controls, Forms,
> Dialogs, ImgList, ComCtrls, ExtCtrls, DBCtrls, XPMan, Menus,
> Grids,
> DBGrids, DB, StdCtrls, Mask, ToolWin,Unit2, ExtDlgs,Unit3,
> Jpeg, DBTables;

их тут быть не должно!

← →
vitalik200888 (2009-06-16 11:51) [17]

чёт не фыходит у меня нифига сделать её главной и всё. хотел сделать эту форму просто как титульный. а form1 уже дальше шла......(((((

← →
sniknik © (2009-06-16 11:54) [18]

> хотел сделать эту форму просто как титульный.
Игорь Шевченко © (16.06.09 11:18) [8]

← →
vitalik200888 (2009-06-16 11:57) [19]

у меня теперь в unit 1 /[Подсказка] Unit1.pas(173): Variable "Present" is declared but never used in "TForm1.FormActivate"
[Подсказка] Unit1.pas(174): Variable "Year" is declared but never used in "TForm1.FormActivate"
[Подсказка] Unit1.pas(174): Variable "Month" is declared but never used in "TForm1.FormActivate"
[Подсказка] Unit1.pas(174): Variable "Day" is declared but never used in "TForm1.FormActivate"
[Ошибка] Unit1.pas(206): Declaration expected but end of file found
[Фатальная Ошибка] Unit1.pas(8): Could not compile used unit "Unit1"
что делать?

Для начала исправить ошибку в строке 206 в Unit1.pas

> [Ошибка] Unit1.pas(206): Declaration expected but end of
> file found

> [Ошибка] Unit1.pas(206): Declaration expected but end of
> file found

незакрытый begin где-то.

> что делать?

Исправлять.

> что делать?

исправлять

App.Initialize; try Z:=TFormZastavka.Create(App); Z.Show; App.CreateForm(TFormMain, FormMain); ... finally Z.Free; end; App.Run

бррррр. try на строку ниже...

← →
vitalik200888 (2009-06-16 12:12) [25]

[Ошибка] Unit4.pas(29): Undeclared identifier: "form1"
[Фатальная Ошибка] Project1.dpr(8): Could not compile used unit "Unit4.pas"

← →
vitalik200888 (2009-06-16 12:18) [26]

я всё1 сделал. она первая выходит. теперь мне надо чтобы button работал. пишу form4.hide; form1.show;
выше ошибки его.

← →
vitalik200888 (2009-06-16 12:32) [27]

всё работает!!! спасибо огромное!!

как поменять главную форму в delphi. Найти похожие ветки