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?