Скрытие или закрытие главной формы

[mental]

Собственно вопрос в название темы, как скрыть форму если она является главной?
Hide, Visible - не работают.
Собственно форма авторизации которая должна исчезать после входа и появляться другая.

[psycho-coder]

То есть как это Hide не работает?
Код в студию!

[Alex11223]

А с чего бы это visible (visible:=false) не работает? У меня работает вроде. И hide тоже.

[mental]

Даже кинул кнопку на форму с кодом:

form5.hide;
form5.Visible:=false;

Никакой реакции.

На других формах естественно работает, как я понял главную нельзя скрыть? 0_o

[psycho-coder]

А чем главная отличается от других?
Только тем что она стоит первой в массиве!
Из этого следует что ее можно скрыть методом Hide();
Следовательно что-то вы делаете не правильно. Без подробных исходников трудно что-либо сказать вразумительного. Увы

[mental]

Код формы:

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Mask, DB, ADODB, cxGraphics, cxLookAndFeels,
  cxLookAndFeelPainters, Menus, ExtCtrls, cxButtons;

type
  TForm5 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    Edit2: TEdit;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ADOQuery1Username: TStringField;
    ADOQuery1Password: TStringField;
    ADOQuery1Privileges: TIntegerField;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

uses Unit1, Unit10, Unit11, Unit12, Unit13, Unit14, Unit2, Unit3, Unit4,
  Unit6, Unit7, Unit8, Unit9, md5;

{$R *.dfm}

procedure TForm5.BitBtn1Click(Sender: TObject);
var
l:integer; //äëèíà
lvl:integer;
begin
AdoQuery1.SQL.Text:='Select Password, Username, Privileges From RqUsers Where Username='+#39+Edit1.Text+#39;
AdoQuery1.Active:=true;
lvl:=AdoQuery1.FieldbyName('Privileges').Value;
if AdoQuery1.FieldbyName('Password').Value=MD5DigestToStr(MD5String(Edit2.text)) then     //ñâåðÿåì
begin
form1.Visible:=true;
form5.visible:=false;
end else
if AdoQuery1.FieldbyName('Password').Value<>MD5DigestToStr(MD5String(Edit2.text)) then
Showmessage('Íåâåðíî ââåä¸í ëîãèí/ïàðîëü.');
//äàëåå ñêðûâàþòñÿ ôîðìû â çàâèñèìîñòè îò ïðàâ
if AdoQuery1.FieldbyName('Privileges').Value='1' then begin //åñëè ïîëüçîâàòåëü 1, òî ïðàâà äîñòóïà 1:
Form1.MainMenu1.Items[0].Enabled:=false;
Form1.MainMenu1.Items[1].Enabled:=false;
Form1.MainMenu1.Items[2].Enabled:=true;
Form1.MainMenu1.Items[3].Enabled:=true;
Form1.MainMenu1.Items[4].Enabled:=true;
Form1.MainMenu1.items[3].Items[1].Enabled:=false;
Form1.Label16.Caption:='1';
form5.hide;
end;
if AdoQuery1.FieldbyName('Privileges').Value='2' then begin //åñëè ïîëüçîâàòåëü, òî ïðàâà äîñòóïà 2:
Form1.MainMenu1.Items[0].Enabled:=True;
Form1.MainMenu1.Items[1].Enabled:=true;
Form1.MainMenu1.Items[2].Enabled:=true;
Form1.MainMenu1.Items[3].Enabled:=true;
Form1.MainMenu1.Items[4].Enabled:=true;
Form1.MainMenu1.items[3].Items[1].Enabled:=false;
Form1.Label16.Caption:='2';
form5.Hide;
end;
if AdoQuery1.FieldbyName('Privileges').Value='3' then begin //åñëè ïîëüçîâàòåëü,  òî ïðàâà äîñòóïà 3:
Form1.MainMenu1.Items[0].Enabled:=True;
Form1.MainMenu1.Items[1].Enabled:=true;
Form1.MainMenu1.Items[2].Enabled:=true;
Form1.MainMenu1.Items[3].Enabled:=true;
Form1.MainMenu1.Items[4].Enabled:=true;
Form1.MainMenu1.items[3].Items[1].Enabled:=false;
Form1.Label16.Caption:='3';
form5.Hide;
end;
form5.Hide;
end;

procedure TForm5.BitBtn2Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm5.FormActivate(Sender: TObject);
begin
form1.Visible:=false;
Application.Title:='';

end;

procedure TForm5.BitBtn3Click(Sender: TObject);
begin
form1.Show;
form5.hide;
form5.Visible:=false;
end;

end.

[Silver_S]

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

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

http://www.programmersforum.ru/showp...46&postcount=5