.


:




:

































 

 

 

 





. (. 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, .





:


: 2016-11-18; !; : 992 |


:

:

, .
==> ...

1614 - | 1405 -


© 2015-2024 lektsii.org - -

: 0.007 .