окно авторизации

[marwell.]

доброго времени суток!
потребовалось сделать окно авторизации для проекта.
Form2 - главная
Form1 - форма авторизации

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls, ScktComp;

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    Button3: TButton;
    Button1: TButton;
    DateStart: TDateTimePicker;
    DateEnd: TDateTimePicker;
    cs: TClientSocket;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  autorization: boolean;
implementation
uses Unit1;
{$R *.dfm}

function login(Form: TForm):boolean;
begin
try
  Form:=TForm1.Create(Application); //создаю форму авторизации
  Form.ShowModal; //показываю ее
finally
  Form.Free; //освобождаю
  Form:=nil;
end;
if autorization then login := True
else login := False;

end;

procedure TForm2.FormCreate(Sender: TObject);
var B: Boolean;
begin
autorization := false;
B:=login(Form1);
if not B then Application.Terminate;
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ADODB, DB, StdCtrls, Inifiles, IdHTTP, IdHashMessageDigest, ExtCtrls,
  ScktComp;

type
  TForm1 = class(TForm)
    Button1: TButton;
    edit_login: TEdit;
    edit_pass: TEdit;
    cs: TClientSocket;
    log: TMemo;
    te: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type
  arr=array of string;
  twoarr=array[0..1] of arr;
var
  Form1: TForm1;
  Ini: Tinifile;
  login, pass: string;


implementation
uses Unit2;

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
//проверка авторизации...
      Unit2.autorization := true;
      Form2.Show;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Unit2.autorization:=false;
end;

Form2 выбрана как главная, form1 не создается автоматически(убрал в options: auto-create forms). При успешной авторизации главная форма показывается, но форма авторизации не убивается. Если в TForm1.Button1Click после Unit2.autorization := true; прописать Form1.Close или Form1.Hide, то вылезает эксепшн как показать главную форму, и убить форму авторизации?

[STRELOK-2007]

function login(var Form: TForm):boolean;
begin
try
  Form:=TForm1.Create(Application); //создаю форму авторизации
  Form.ShowModal; //показываю ее
finally
  FreeAndNil(Form);
end;
if autorization then 
 Result := True
else
 Result := False;
end;

Скорее всего так. Остальное похоже на правду.

[BDA]

http://programmersforum.ru/showpost....99&postcount=4
Создаю главную форму только при успешно пройденной авторизации.

[marwell.]

спасибо большое!

[northener]

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

http://programmersforum.ru/showpost....99&postcount=4
Создаю главную форму только при успешно пройденной авторизации.

Несколько странно выглядит строка

LoginPage.free;

последней строкой программы.

P.S,
А вообще меня давно удивляет такое поведение Дельфийских программ. Вроде как в учебниках исстари написано что цикл обработки сообщений запускается в методе TApplication.Run. Так каким же святым духом работает обработка сообщений в форме созданной и показанной до вызова этого метода?

[BDA]

northener, мне нечего Вам сказать по поводу TApplication.Run (не знаю этой "кухни"). Насчёт LoginPage.free - она нужна в обоих кейсах, вот и вынес. В общем, этот код можно рассматривать как пример, но является ли он 100% правильно работающим, не могу сказать (тыц).

[northener]

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

[B В общем, этот код можно рассматривать как пример, но является ли он 100% правильно работающим, не могу сказать (тыц).

Он действительно работающий. И под те 90% от АА он явно не подпадает.
И я не имел никоим образом сказать что этот код не рабочий. Я сказал только то что я сказал.

[evg_m]

Если в TForm1.Button1Click после Unit2.autorization := true; прописать Form1.Close или Form1.Hide, то вылезает эксепшн

В вашем случае переменная Form1 не инициализирована( ей нигде в коде не присваивается значение). В ней нет ссылки на ту самую форму авторизации.

function login(Form: TForm):boolean;
begin
try
  Form:=TForm1.Create(Application); //создаю форму авторизации

форма создана, но переменная form1 не будет заполнена, несмотря на это B:=login(Form1);

Дело в том что параметры процедур(функций) не возвращаются без явного на то указания.

function login(var Form: TForm):boolean; //теперь мы указали что МЫ можем изменить значение переданного нем параметра.

function Login: boolean;
begin
  Form1:=Tform1.Create(...);// прямая инициализация глобальной переменной Form1

[eval]

BDA ShowModal функция, зачем еще какие то саксесы? ну и про фри уже сказали

[BDA]

eval, насчёт ShowModal согласен. Когда писал, не знал, что можно вернуть любое целое в ModalResult.