Как пограммно выбрать главную форму?

[DimOn4Ik]

Доброе время суток!
Возможно ли программно выбрать главную форму ?

Project => Options... => Main form

[856100]

А если не секрет, зачем вам это нужно? Насколько я знаю, "программно" такое сделать невозможно.

[DimOn4Ik]

У меня есть авторизация и хотелось бы её включать или отключать..\
Если авторизация отключена ,чтобы форма "mainform" была главной,а если отключена форма "auth"..

Вкл.\Выкл. определяется наличием файла в папке config.. может можно как-то через ini сделать?

[856100]

1. В событии OnShow mainform вызывайте форму auth модально (в зависимости от настроек).
2. Про ini файлы было очень много сказано, так что или поиск по форуму, или поиск в гугле.

[DimOn4Ik]

спасибо ShowModal помогло вот только mainform после ввода пароля в auth ьез бардюров.. хотя borderstyle не none...

[856100]

ShowModal никак на это не влияет - ищите ошибку.

[DimOn4Ik]

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

if not FileExists(ExtractFilePath(ParamStr (0))+'config\auth.dat') then
main.ShowModal;

после закрытия main такая проблема...

[856100]

Посмотрите такой способ авторизации (все схематично, за то понятен принцип работы форм).

[DimOn4Ik]

спасибо,а как выполнять какие нибудь логические операции я пробовал не выходит..Форма не закрывается

procedure TForm2.FormShow(Sender: TObject);
var
i:integer;
begin
i:=1;
if i =1 then
Form2.Close;
end;

procedure TForm2.FormActivate(Sender: TObject);
var
i:integer;
begin
i:=1;
if i =1 then
Form2.Close;
end;

[856100]

А вы заглядовали в код проекта? Наверно нет....ну чтож, вот он =)

program Project1;

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

{$R *.res}

begin
  Application.Initialize;

  Form2:=TForm2.Create(Application);
  Form2.ShowModal;
  if form2.Tag=1 then
  begin
    Form2.Free;
    Exit;
  end;
  Form2.Free;

  Application.CreateForm(TForm1, Form1);
  Application.Run;
en

Все основное происходит тут...