| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как поменять главную форму в delphi. [D7]
vitalik200888 © (2009-06-16 10:49:00)у меня главная форма1. создал form4. хочу чтобыв она запускалась первая, и от туда запускать form1. как сделать???
vitalik200888 (2009-06-16 12:32:00) [1]всё работает!!! спасибо огромное!!
vitalik200888 (2009-06-16 12:18:00) [2]я всё1 сделал. она первая выходит. теперь мне надо чтобы button работал. пишу form4.hide; form1.show;
выше ошибки его.
vitalik200888 (2009-06-16 12:12:00) [3][Ошибка] Unit4.pas(29): Undeclared identifier: 'form1'
[Фатальная Ошибка] Project1.dpr(8): Could not compile used unit 'Unit4.pas'
Dennis I. Komarov (2009-06-16 12:04:00) [4]бррррр. try на строку ниже...
Dennis I. Komarov (2009-06-16 12:03:00) [5]
App.Initialize;
try
Z:=TFormZastavka.Create(App);
Z.Show;
App.CreateForm(TFormMain, FormMain);
...
finally
Z.Free;
end;
App.Run
Игорь Шевченко (2009-06-16 12:03:00) [6]
> что делать?
исправлять
Ega23 (2009-06-16 12:03:00) [7]
> [Ошибка] Unit1.pas(206): Declaration expected but end of
> file found
незакрытый begin где-то.
> что делать?
Исправлять.
Amoeba (2009-06-16 12:03:00) [8]Для начала исправить ошибку в строке 206 в Unit1.pas
> [Ошибка] Unit1.pas(206): Declaration expected but end of
> file found
vitalik200888 (2009-06-16 11:57:00) [9]у меня теперь в 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'
что делать?
sniknik (2009-06-16 11:54:00) [10]> хотел сделать эту форму просто как титульный.
Игорь Шевченко © (16.06.09 11:18) [8]
vitalik200888 (2009-06-16 11:51:00) [11]чёт не фыходит у меня нифига сделать её главной и всё. хотел сделать эту форму просто как титульный. а form1 уже дальше шла......(((((
brother (2009-06-16 11:35:00) [12]> 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:33:00) [13]может тут что убрать надо???
из 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;
Сергей М. (2009-06-16 11:32:00) [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:31:00) [15]что не так????
MsGuns (2009-06-16 11:27:00) [16]Чукча писатель ?
vitalik200888 (2009-06-16 11:22:00) [17]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.
vitalik200888 (2009-06-16 11:20:00) [18]Это ошибка form.show;
vitalik200888 (2009-06-16 11:19:00) [19][Фатальная Ошибка] Project1.dpr(8): Could not compile used unit 'Unit4.pas'
Игорь Шевченко (2009-06-16 11:18:00) [20]а что в dpr написано ? главная форма - это то, что первым создается по Application.CreateForm
Смотреть Demos\Db\MastApp
| |
Страницы: 