unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, uniGUITypes, uniGUIAbstractClasses,
uniGUIClasses, uniGUIForm;
type
TMainForm = class(TUniForm)
procedure UniFormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
LoginDone : Boolean;
end;
function MainForm: TMainForm;
implementation
{$R *.dfm}
uses
uniGUIVars, MainModule, uniGUIApplication, Unit1;
function MainForm: TMainForm;
begin
Result := TMainForm(UniMainModule.GetFormInstance(TMainForm));
end;
procedure TMainForm.UniFormShow(Sender: TObject);
begin
if not LoginDone then
begin
if WebMode then Hide;
UniForm1.ShowModal;
end;
end;
initialization
RegisterMainFormClass(TMainForm);
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, uniGUITypes, uniGUIAbstractClasses,
uniGUIClasses, uniGUIForm;
type
TUniForm1 = class(TUniForm)
procedure UniFormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
function UniForm1: TUniForm1;
implementation
{$R *.dfm}
uses
MainModule, uniGUIApplication, Main;
function UniForm1: TUniForm1;
begin
Result := TUniForm1(UniMainModule.GetFormInstance(TUniForm1));
end;
procedure TUniForm1.UniFormClose(Sender: TObject; var Action: TCloseAction);
begin
MainForm.LoginDone:=True;
if webmode then
MainForm.Show;
end;
end.