5
.
: , . .
. . . , ( ), .
( ). Forms. :
Project Options
:
- (Auto-create form);
- (Available form)
Forms. Auto-create form Available form , ,
. 1
Create. , . ( Name). , TFrm61 Frm61:
Frm61:=TFrm61.Create(application).
( ) . ShowModal. , :
Frm61.ShowModal;
, Free , nil.
, ShowModal.
(, ) . Uses implementation. , TFrm61 TFrm62, un61 un62 . :
implementation
uses un61, un62;
, , ( , , ..). , pm61 Tfrm61 :
procedure TFrmMain.pm61Click(Sender:TObject);
begin
Frm61:=TFrm61.create(application);
try
Frm61.ShowModal;
finally
Frm61.free;
Frm61:=nil;
end;
end;