1
: Standard.
:
Standard .
1. My_Demo_VCL.dpr; Unit1.pas Standart.pas
2. ( Caption) . ( Name) StandartTab.
3. anel ( 17). . Caption VCL .
17
4. Label, 17.
5. Edit, Text.
6. Memo. RadioGroup, . Items 4- . ItemIndex , (-1 , 0 1- ..). OnClick :
procedure TStandartTab.RadioGroup1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex=0 Then StandartTab.Color:=clSilver;
if RadioGroup1.ItemIndex=1 Then StandartTab.Color:=clBlue;
if RadioGroup1.ItemIndex=2 Then StandartTab.Color:=clYellow;
if RadioGroup1.ItemIndex=3 Then StandartTab.Color:=clRed;
end;
7. ScrollBar. OnChange :
procedure TStandartTab.ScrollBar1Change(Sender: TObject);
begin
RadioGroup1.ItemIndex:=ScrollBar1.Position;
end;
8. omboBox.
9. ListBox, IntegralHeigt=True. (>3!) .
10. GroupBox. Button, RadioButton, CheckBox. .
RadioButton Checked=True.
11. Button1 OnClick :
procedure TStandartTab.Button1Click(Sender: TObject);
var
x:integer;
begin
Memo1.Clear; // Memo
Memo1.Lines.Add(Edit1.Text); // Memo Edit1
Memo1.Lines.Add(ComboBox1.Text); // Memo ComboBox
// Memo1 ListBox1
Memo1.Lines.Add('ListBox #'+IntToStr(ListBox1.ItemIndex+1));
if RadioButton1.Checked then Memo1.Color:=clWhite;
if RadioButton2.Checked Then Memo1.Color:=clAqua;
end;
12. Button2 OnClick :
procedure TStandartTab.Button2Click(Sender: TObject);
begin
if CheckBox1.State=cbChecked then StandartTab.Font.Style:=[fsItalic]
else StandartTab.Font.Style:=[ ];
if CheckBox2.State=cbChecked then StandartTab.Font.Color:=clPurple
else StandartTab.Font.Color:=clBlack;
end;
13. Button3 OnClick :
|
|
procedure TStandartTab.Button3Click(Sender: TObject);
begin
Close;
end;
14. Button4 . Enable=False
15. MainMenu ( ). Items ( ). . Caption=& ( & , . Alt+).
&. & & : & & , (-) Caption &. & Button3Click. & .
, .
, , .
16. PopupMenu. , . , . : PopupMenu PopupMenu1.
17. .
3.