.


:




:

































 

 

 

 


TcheckBox




type TleftRight = (taLeftJustify, taRightJustify); property Alignment; : taLeftJustify , taRightJustify
property AllowGrayed: Boolean; / cbGrayed ( )
property Caption: String;
property Checked: Boolean; , . cbChecked True. cbUnchecked cbGrayed False
type TCheckBoxState = (cbUnchecked, cbChecked, cbGrayed); property State: f TCheckBoxState; : cbUnchecked ; cbChecked ; cbGrayed

color , Height Width , , . caption.

: 2, .27-31.

:

1. Button?

2. Button BitBtn?

3. TCheckBox, ??

4. SpeedButton?

 

 

5

 

: , .

:

1 RadioButton .

2 Panel .

4 GroupBox .

 

1 RadioButton

TCheckBox, TRadioButton , . . , Checked. True, , , checked False.

checked, TRadioButton Alignment, TCheckBox. , , caption, .

Checked. True, False.

, RadioButton Checked True OnClick. , .

2 Panel

TPanel - . , , .

. : BevelInner BevelOuter.

 

 

, . TPanel Standard .

Caption , - Button1, Close.

 

C OnMouseDown .

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

Panel1.BevelOuter:=bvLowered;

end;

 

. OnMouseUp , :

procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin Panel1.BevelOuter:=bvRaised;

end;

 

. , . . , .

:

BevelOuter bvRaised

BevelInner bvLowered.

OnMouseDown .

 

procedure TForm1.Panel2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

Panel2.BevelOuter:=bvLowered;

Panel2.BevelInner:=bvRaised;

end;

 

. , OnMouseUp , :

 

procedure TForm1.Panel2MouseUp(Sender: TObject;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

Panel2.BevelOuter:=bvRaised;

Panel2.BevelInner:=bvLowered;

Close;

end;

 

 

: 2, .26-27.

:

1. TPanel, ?

2. TRadioButton, ?

3. Checked TRadioButton, ?

4. TCheckBox TRadioButton?





:


: 2016-11-24; !; : 1196 |


:

:

.
==> ...

973 - | 839 -


© 2015-2024 lektsii.org - -

: 0.012 .