3042 писал(а):
не нашёл, откуда вызывается THIMainForm.Start, никто не в курсе?
project.dpr
Program HiAsm;
{$ifdef F_P} {$APPTYPE GUI} {$endif}
{$R allres.res}
uses
hiMainForm_283B7E0,
Windows,
kol,Share;
begin
if ParamStr(1) = '/ih' then
begin
MessageBox(0,'Сделано в HiAsm.','HiAsm Info',MB_OK);
Halt;
end;
ClassMain := TClassMainForm_283B7E0.Create;
ClassMain.MainForm_283B7E0.Start; // <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Run(Applet);
ClassMain.Destroy;
end.
3042 писал(а):
А почему оттуда? InitDo из mainform же вызывается.По мне, так логично исходник должен выглядеть так:
project.dpr
begin
ClassMain := TClassMainForm_283B7E0.Create;
InitDo();
ClassMain.MainForm_283B7E0.Start;
Run(Applet);
FinalDo();
ClassMain.Destroy;
end.
Поиск
Друзья
Администрация