работа с формой!

[vakyla]

у меня в программе 4 формы я хочу их за циклить чтоб при нажатие на кнопку переходилось к последующей форме а на 4 форме чтоб переходила заново на 1 и так ходила по кругу при нажатие на кнопку!!!

[Deamonig]

сделай 4 кнопки на 4 формах, в каждой кнопке на событие Onclick пропишы

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.show;
Form1.Hide;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
Form3.show;
Form2.Hide;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
Form4.show;
Form3.Hide;
end;

procedure TForm4.Button1Click(Sender: TObject);
begin
Form1.show;
Form4.Hide;
end;

[fbus]

прежде чем прописать необходимо добавить строку Uses Unit1,Unit2,Unit3,Unit4;
в седьмой версии и выше компилятор спрашивает добавить в Uses или нет, в версиях ранее незнаю.

[TaYgA]

Вот пример твоей проги... Нельзя забывать проApplication.Terminate; Если его пропускать, то программа будет виснуть...

[vakyla]

у меня зависон ловит на второй форме первую закрывает а вторую не закрывает и все ивснет почему все везде прописал как выше мне посоветовали!!!

[vakyla]

TaYgA я сделал как ты написал и на 2 форме все висит даже не закрыть никак!

[MadReason]

ничего сложного, просто много модулей, код последовательно не напишешь, пример ниже

forms.zip

[vakyla]

ловит зависон и все не знаю что делать!
uses прописываю;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.show;
Form1.Hide;
end;
это проходит а на второй форме все виснет если перешел по этой кнопке почему????