. (. 4), . . .
:
If Form1 = Nil Then Form1:= TForm1.Create(Application);
:
If not Assigned (Form2) then // : ?
Form2:= TForm2.Create(Self); //
Release:
If Form1 <> Nil Then Release;
, , - Onreate OnDestroy.
Show ShowModal.
Show , , . . ShowModal , , ShowModal . - . , . , , , . , , ModalResult. (Ok, Yes, No, Cancel ..) . ModalResult . .
Close, CloseQuery, . True, .
- OnCloseQuery. . CanClose True.
Visible. Hide Visible False.
- OnShow, Show ShowModal.
|
|
Position. poDesigned. , . poScreenCenter, .
Canvas, . () , , ClientHeight, ClientWidth, ClientRect.
- OnPaint. :
With Canvas Do
Begin
Pen.Color:= clRed;
Pen.Width:= 10;
MoveTo(10, 10);
LineTo(ClientWidth 10, ClientHeight 10);
End;
- OnPaint, , .
MDI- SDI-. FormStyle. fsNormal , , - ( ). fsMDIChild fsMDIForm MDI. fsStayOnTop , .
. , .. BorderIcons.
, . BorderStyle. :
bsNone , .
bsSingle BorderIcon.
bsSizeable .
bsDialog .
bsToolWindow .
bsSizeToolWin bsSingle, .