Form1.Hide и Form1.Show...

[Roof]

Не могу разобраться.
На Form1 есть кнопка, которая показывает Form2 и скрывает Form1.
А как написать процедуру для кнопки на Form2, которая бы снова показывала Form1 и скрывала Form2.
я уже чего только не пробовал, возникает ошибка:
cannot change visible in onshow or onhide

[Stilet]

Напиши по клику кнопки на второй форме просто close

[Roof]

а вот не пашет не фига

[Stilet]

Ну мона так :

procedure TForm2.Button1Click(Sender: TObject);
begin
hide;
form1.show;
end;

Ну и Форма 1

procedure TForm1.Button1Click(Sender: TObject);
begin
hide;
form2.show;
end;


Или код в студию )

[Roof]

кажется разобрался...
чисто случайно
дело в том что я использовал в процедуре OnShow для Form1:

Form1.Position:= poDeskTopCenter;
из-за нее и не шло...
странно как-то

Unit1

 
uses Unit2;
 
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
Form1.Hide;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Position:= poDeskTopCenter;
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
Form1.Position:= poDeskTopCenter;
end;
end.

Unit2

 
uses Unit1;
 
{$R *.dfm}
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Close;
end;
 
procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.Show;
Form2.Hide;
end;
end.

а с такой штукой как Form1.Position:= poDeskTopCenter возможно решение моей задачи?

[Stilet]

А нашо ты делаешь Form1.Close; в обработчике TForm2.FormClose?
Этак он те все закроет вообще.

Кста Position тут непричем

[Roof]

это нужно для того чтобы если пользователь вышел из программы, т.е. закрыл Form2, то и Form1 тоже закрылась, ушла
а вот Position я везде убрал и все работает
только в OnCreate оставил

[Stilet]

Ну вот пусть там и остается )

[Roof]

))))))
спасибо за помощь

[Илюха]

Попробуй еще проще:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.show;
Form1.Close;
end;

А для второй:
procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.show;
Form2.Close;
end;

Благодаря этому о тебя бутет при нажатии на кнопку Form1 закроется и откроется вторая форма. На Form2 будет тоже самое только на оборот