Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.10.2011, 12:56   #11
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Примерный путь решения проблемы
Код:
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.
И для Unit2:
Код:
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm2 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
var xOk: Boolean;
begin
  Form1:=TForm1.Create(Application);
  xOk:=Form1.ShowModal=mrOk;
  Form1.Free;
  if not xOk then Application.Terminate;  // например так и не введен пароль
end;

end.
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 17.10.2011, 13:17   #12
cashmail
Форумчанин
 
Регистрация: 23.06.2011
Сообщений: 201
По умолчанию

как все таки сделать вторую форму главной причем что бы форму можно было переназначить во время выполнения программы.

Код:
Application.MainForm:=Tform2;
Form2.Show;
Form1.Free;
не помогает.
cashmail вне форума Ответить с цитированием
Старый 17.10.2011, 13:28   #13
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Цитата:
Use MainForm to determine the form that acts as the application's main window. The main form is the first form created in the main body of the application. When the main form closes, the application terminates.

When a new project is created, Form1 automatically becomes the value of the MainForm property. To assign a different form to the MainForm property, use the Forms page of the Project|Options dialog box at design time. MainForm cannot be modified at runtime; it is read-only.
Основной смысл: MainForm - свойство только для чтения, что обозначает - главную форму изменить в run-time нельзя
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 17.10.2011, 13:36   #14
cashmail
Форумчанин
 
Регистрация: 23.06.2011
Сообщений: 201
По умолчанию

Кнонибуть киньте проект, 2 формы, 2 главная и чтобы сначало открывалась первая форма!
cashmail вне форума Ответить с цитированием
Старый 17.10.2011, 13:37   #15
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

А в 11 посте что я кинул?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 17.10.2011, 13:58   #16
Shinnok91
Пользователь
 
Регистрация: 30.07.2010
Сообщений: 30
По умолчанию

У меня получилось следующим образом:
Код:
application.createForm(Tform1, form1);
form1.Show;
это я прописал в событии onShow второй формы.
при этом в настройках первую форму убрал из списка автосоздаваемых, то есть перенес в соседнюю колонку.
осталось только сделать первую форму поверх второй, а это дела 1 строчки кода.
Shinnok91 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Главная форма из пакета bpl Dimasw Общие вопросы Delphi 1 02.04.2011 17:30
Access главная кнопочная форма plato Microsoft Office Access 2 19.08.2010 16:06
Главная форма. aleksandr278 Общие вопросы Delphi 17 23.03.2010 13:28
Главная форма Михаил Юрьевич Общие вопросы Delphi 3 03.02.2008 21:42
Главная форма как у Delphi NecroSlider Общие вопросы Delphi 5 19.01.2008 12:49