[cyber922]

Помогите сделать так, чтобы при нажатии кнопки " начать тестирование" вылетало главное окно..... Все создал, но в коде, где что прописывать, чтоб оно появлялось, запутался совсем....


вот ссылка на фал так как для форума большой..
http://narod.ru/disk/38448164001/%D0%9D%D0%BE%D0%B2%D0%B0%D1%8F%20%D0%BF%D0%B0%D0%B F%D0%BA%D0%B0.rar.html

[m1sclick]

FMain.ShowModal;

[cyber922]

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

FMain.ShowModal;

program fmain;

uses
Forms,
ULogin in 'ULogin.pas' {Flog},
Umain in 'Umain.pas' {};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TFlog,Flog );
Application.CreateForm(Tfmain, Flog);
if Flog.ShowModal=fmain then Application.terminate
else begin Fmain.Visible:=true;
end;




Application.Run;
end.

а что сдесь прописать? точнее как правильнее?

[m1sclick]

Ничего не пиши, тебе же просто нужно при нажатии на кнопку показывать другую форму.

[cyber922]

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

Ничего не пиши, тебе же просто нужно при нажатии на кнопку показывать другую форму.

Блин, по разному попробывал, все равно не получается, хотя раньше делал модальную форму, но только чтоб она сама появлялась, а не при нажатии на кнопку....

[m1sclick]

Держи.....

[cyber922]

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

Держи.....

Я понял свою ошибку, я просто прописал
FMain.ShowModal;
А про условие забыл((