Цитата:
|
Сообщение от 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.
а что сдесь прописать? точнее как правильнее?