проблема с закрытием формы

[betirsolt]

доброе время суток,постараюсь объяснить свою проблему...значит есть мелкая прога form1...и есть еще одна форма form2..при открытии программы form1 деактивируется...а form2 активируется..на form2 есть edit1 и button1... чтобы form1 активировалась нужно ввести в edit1 определенный код и нажать button1...если код верный то form2 должна закрытся а form1 активироваться

я все вроде бы казалось бы сделал правильно...таким образом я хотел сделать своеобразную защиту программы..пока не введешь рег номер программа не заработает

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure FormActivate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Color:=clred;
Button1.Enabled:=false;
Button2.Enabled:=true;
Button3.Enabled:=false;
Form1.Caption:='Red';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Color:=clyellow;
Button1.Enabled:=false;
Button2.Enabled:=false;
Button3.Enabled:=true;
Form1.Caption:='Yellow';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Color:=clGreen;
Button1.Enabled:=true;
Button2.Enabled:=false;
Button3.Enabled:=false;
Form1.Caption:='Green';
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
form1.Enabled:=false;
form2.visible:=true;
end;

end.

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var i,k:integer;
begin
k:=198827;
i:=strtoint(edit1.Text);
if i=k then
form1.enabled:=true;
form2.Visible:=false;
end;
end.

form2.close; тоже пробовал ...не закрывается...подскажите если не трудно...как сделать так чтоб form2 закрылась а form1 активировалась

[TAVulator]

вот тут вся проблема:

procedure TForm1.FormActivate(Sender: TObject);
begin
form1.Enabled:=false;
form2.visible:=true;
end;

у тебя когда форма1 активируется, то она сразу становится не активной и форма2 появляется.

А на форме2 ты жмешь кнопку и происходит это:

form1.enabled:=true;
form2.Visible:=false;

и опять срабатывает TForm1.FormActivate...

как решать?
попробуй это:

begin
form1.Enabled:=false;
form2.visible:=true;
end;

из procedure TForm1.FormActivate(Sender: TObject);
засунуть в procedure TForm1.FormCreate(Sender: TObject);

[betirsolt]

сделал....компилируется без ошибок...но при открытии пишет access violition at address 0044b362 in module project1.exe read off address 00000358... а form2 вообще не появляется....что может быть??

[TAVulator]

ну да...

тогда сделай так:
в форме1:

procedure TForm1.FormActivate(Sender: TObject);
begin
if form2.Enabled then
begin
form1.Enabled:=false;
form2.visible:=true;
end;
end;

в форме2 при нажатии на кнопку:

это:

form1.enabled:=true;
form2.Visible:=false;

замени на это:

form1.Enabled:=true;
form2.Enabled:=false;
form2.Close;

[stp56]

а не проще сделать Hide и Show?
и потом условие, если edit равен твоему коду, то отображается вторая форма

[Terran]

Проще сделать так:
Первая форма.

Procedure TForm1.FormShow(Sender: TObject);
Begin
Form1.Enabled:=False;
Form2.ShowModal;
//Form2.Visible:=True;
End;

Вторая

Procedure TForm2.Button1Click(Sender: TObject);
Begin
If 198827 = StrToInt(Edit1.Text) Then
Form1.Enabled:=True;
Form2.Visible:=False;
Close;
End;

[betirsolt]

спасибо ребята))))все сработало с помощю show....


а почему когда я добавляю


If 198827 = StrToInt(Edit1.Text) Then
Form1.Enabled:=True;
Form2.Visible:=False;
Close;
else
showmessage('неверный код');
end;

пишет что ошибка что то с else не правильно.....подскажите

[psycho-coder]

Перед else ";" не ставится
И вот так

If 198827 = StrToInt(Edit1.Text) Then
begin
Form1.Enabled:=True;
Form2.Visible:=False;
Close;
end
else
showmessage('неверный код');

[betirsolt]

procedure TForm2.Button1Click(Sender: TObject);
begin
If 198827 = StrToInt(Edit1.Text) Then
Form1.Enabled:=True;
Form2.Visible:=False;
Close;
end
else
showmessage('неверный код');
end.

вот так написал но все равно пишет что ошибка((((
[Pascal Error] Unit2.pas(36): E2029 ';' expected but 'ELSE' found

[Evgeniy26]

If 198827 = StrToInt(Edit1.Text) Then
begin
  Form1.Enabled:=True;
  Form2.Visible:=False;
  Close;
end else
  showmessage('неверный код');

Ой не заметил #12 пост psycho-coder'a. psycho-coder тебе все написал, посты читай.