ΠΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ RadioButton
ΠΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅Π»ΠΈ (ΡΠ»Π°ΠΆΠΊΠΈ) ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡ Π²ΡΠ±ΡΠ°ΡΡ ΠΊΠ°ΠΊΠΎΠ΅-Π»ΠΈΠ±ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΈΠ· ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠ³ΠΎ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°. ΠΠ½ΠΈ ΠΌΠΎΠ³ΡΡ Π½Π°Ρ
ΠΎΠ΄ΠΈΡΡΡΡ Π²ΠΎ Π²ΠΊΠ»ΡΡΠ΅Π½Π½ΠΎΠΌ (ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½Π½ΠΎΠΌ) ΠΈ Π²ΡΠΊΠ»ΡΡΠ΅Π½Π½ΠΎΠΌ (ΡΠ±ΡΠΎΡΠ΅Π½Π½ΠΎΠΌ) ΡΠΎΡΡΠΎΡΠ½ΠΈΡΡ
. ΠΠ½Π°Π»ΠΈΠ· ΡΠΎΡΡΠΎΡΠ½ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅Π»Ρ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΡ Π²ΡΠΏΠΎΠ»Π½ΡΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ.
Π‘ΠΈΡΡΠ΅ΠΌΠ° Delphi ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»ΡΠ΅Ρ Π΄Π»Ρ ΡΠ°Π±ΠΎΡΡ Ρ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅Π»ΡΠΌΠΈ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ CheckBox, RadioButton ΠΈ RadioGroup. ΠΠ»Π°ΡΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠ² CheckBox ΠΈ RadioButton, ΠΊΠ°ΠΊ ΠΈ ΠΊΠ½ΠΎΠΏΠΊΠ° Button, ΠΏΡΠΎΠΈΡΡ
ΠΎΠ΄ΡΡ ΠΎΡ ΠΊΠ»Π°ΡΡΠ° TButtonControl. ΠΠΎΡΡΠΎΠΌΡ ΠΈΠ½ΠΎΠ³Π΄Π° ΡΡΠΈ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅Π»ΠΈ Π½Π°Π·ΡΠ²Π°ΡΡ ΠΊΠ½ΠΎΠΏΠΊΠ°ΠΌΠΈ Ρ ΡΠΈΠΊΡΠ°ΡΠΈΠ΅ΠΉ: CheckBox Ρ Π½Π΅Π·Π°Π²ΠΈΡΠΈΠΌΠΎΠΉ ΡΠΈΠΊΡΠ°ΡΠΈΠ΅ΠΉ, Π° RadioButton — Ρ Π·Π°Π²ΠΈΡΠΈΠΌΠΎΠΉ.
ΠΠ½Π°ΡΠΎΠΊ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ° RadioButton
ΠΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅Π»ΠΈ Ρ Π·Π°Π²ΠΈΡΠΈΠΌΠΎΠΉ ΡΠΈΠΊΡΠ°ΡΠΈΠ΅ΠΉ ΡΠ°ΠΊΠΆΠ΅ Π½Π°Π·ΡΠ²Π°ΡΡΡΡ ΠΊΠ½ΠΎΠΏΠΊΠ°ΠΌΠΈ Π²ΡΠ±ΠΎΡΠ°. Π‘ΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡΡΡ Π² Π²ΠΈΠ΄Π΅ ΠΊΡΡΠ³Π° Ρ ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠΉ Π½Π°Π΄ΠΏΠΈΡΡΡ.
ΠΠ½ΠΎΠΏΠΊΠΈ Π²ΡΠ±ΠΎΡΠ° ΠΎΠ±ΡΡΠ½ΠΎ ΡΠ°ΡΠΏΠΎΠ»Π°Π³Π°ΡΡΡΡ ΠΏΠΎ ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠΌ Π³ΡΡΠΏΠΏΠ°ΠΌ, Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎ Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΡΠΌ Π½Π° ΡΠΎΡΠΌΠ΅. ΠΡΠ±ΠΎΡ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅Π»Ρ ΡΠ²Π»ΡΠ΅ΡΡΡ Π²Π·Π°ΠΈΠΌΠΎΠΈΡΠΊΠ»ΡΡΠ°ΡΡΠΈΠΌ, Ρ. Π΅. ΠΏΡΠΈ Π²ΡΠ±ΠΎΡΠ΅ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅Π»Ρ Π΄ΡΡΠ³ΠΈΠ΅ ΡΡΠ°Π½ΠΎΠ²ΡΡΡΡ Π½Π΅Π²ΡΠ±ΡΠ°Π½Π½ΡΠΌΠΈ. Delphi ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΈΠ²Π°Π΅Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ΅ Π³ΡΡΠΏΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅Π»Π΅ΠΉ. ΠΠ°ΠΆΠ΄ΡΠΉ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅Π»Ρ, ΠΏΠΎΠΌΠ΅ΡΠ΅Π½Π½ΡΠΉ Π² ΠΊΠΎΠ½ΡΠ΅ΠΉΠ½Π΅Ρ, Π²ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ Π² Π½Π°Ρ
ΠΎΠ΄ΡΡΡΡΡΡ Π½Π° Π½Π΅ΠΌ Π³ΡΡΠΏΠΏΡ (ΡΠΈΡ. 1). ΠΠΎΠ½ΡΠ΅ΠΉΠ½Π΅ΡΠ°ΠΌΠΈ ΠΎΠ±ΡΡΠ½ΠΎ ΡΠ»ΡΠΆΠ°Ρ ΡΠ°ΠΊΠΈΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ, ΠΊΠ°ΠΊ ΡΠΎΡΠΌΠ° Form, ΠΏΠ°Π½Π΅Π»Ρ Panel ΠΈ Π³ΡΡΠΏΠΏΠ° GroupBox.
Π ΠΈΡ. 1
procedure TForm1. FormCreate (Sender: TObject);
begin
radiobutton2.Checked:=true;
radiobutton6.Checked:=true;
radiobutton10.Checked:=true;
radiobutton3.Checked:=true;
end;
end.
Π Π°ΡΡΠΌΠΎΡΡΠΈΠΌ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ° RadioButton.
Π‘Π²ΠΎΠΉΡΡΠ²ΠΎ Caption ΡΠΈΠΏΠ° Strings ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ Π½Π°Π΄ΠΏΠΈΡΡ, ΠΏΠΎΡΠ²Π»ΡΡΡΡΡΡΡ ΠΎΠΊΠΎΠ»ΠΎ ΠΊΠ½ΠΎΠΏΠΊΠΈ. ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠ²ΠΎΠΉΡΡΠ²Π° Alignment ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅Ρ, Ρ ΠΊΠ°ΠΊΠΎΠΉ ΡΡΠΎΡΠΎΠ½Ρ ΠΎΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΏΠΎΡΠ²ΠΈΡΡΡ Π½Π°Π΄ΠΏΠΈΡΡ: taLeftJustify ΡΠ»Π΅Π²Π°, taRightJustify ΡΠΏΡΠ°Π²Π° (ΡΡΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΡΠΈΠ½ΡΡΠΎ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ). ΠΠ»Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ ΡΠΎΡΡΠΎΡΠ½ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅Π»Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ Checked ΡΠΈΠΏΠ° Boolean. ΠΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ ΠΎΠ½ΠΎ ΠΈΠΌΠ΅Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ False, ΠΈ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅Π»Ρ Π²ΡΠΊΠ»ΡΡΠ΅Π½.
ΠΠ° ΡΠΎΡΠΌΡ (ΡΠΎΡΠ½Π΅Π΅, Π² ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ-ΠΊΠΎΠ½ΡΠ΅ΠΉΠ½Π΅Ρ) ΠΏΠΎΠΌΠ΅ΡΠ°Π΅ΡΡΡ ΠΏΠΎ ΠΌΠ΅Π½ΡΡΠ΅ΠΉ ΠΌΠ΅ΡΠ΅ Π΄Π²Π° ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ° RadioButton. ΠΠ½ΠΈ ΠΌΠΎΠ³ΡΡ ΠΈΠΌΠ΅ΡΡ ΡΠΎΠ»ΡΠΊΠΎ Π΄Π²Π° ΡΠΎΡΡΠΎΡΠ½ΠΈΡ, ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅ΠΌΡΡ
ΡΠ²ΠΎΠΉΡΡΠ²ΠΎΠΌ Π‘hecked. ΠΡΠ»ΠΈ Π² ΠΎΠ΄Π½ΠΎΠΌ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ΅ ΡΡΠΎ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ ΠΏΡΠΈΠ½ΠΈΠΌΠ°Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ True, Π²ΠΎ Π²ΡΠ΅Ρ
Π΄ΡΡΠ³ΠΈΡ
ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ°Ρ
, ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½Π½ΡΡ
Π² ΡΠΎΠΌ ΠΆΠ΅ ΠΊΠΎΠ½ΡΠ΅ΠΉΠ½Π΅ΡΠ΅, ΡΠ²ΠΎΠΉΡΡΠ²Π° Π‘hecked ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ False.
ΠΡΠΈ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΈ ΡΠΎΡΡΠΎΡΠ½ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅Π»Ρ Π²ΠΎΠ·Π½ΠΈΠΊΠ°Π΅Ρ ΡΠΎΠ±ΡΡΠΈΠ΅ OnClick. ΠΠ»Ρ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ° ΡΠΎΠ±ΡΡΠΈΠ΅ OnClick Π³Π΅Π½Π΅ΡΠΈΡΡΠ΅ΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΏΡΠΈ Π²ΡΠ±ΠΎΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅Π»Ρ. ΠΠΎΠ²ΡΠΎΡΠ½ΡΠΉ ΡΠ΅Π»ΡΠΎΠΊ Π½Π° ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅Π»Π΅ Π½Π΅ ΠΏΡΠΈΠ²ΠΎΠ΄ΠΈΡ ΠΊ Π²ΠΎΠ·Π½ΠΈΠΊΠ½ΠΎΠ²Π΅Π½ΠΈΡ ΡΠΎΠ±ΡΡΠΈΡ.
ΠΡΠΈ ΡΠ°Π±ΠΎΡΠ΅ Ρ Π³ΡΡΠΏΠΏΠΎΠΉ ΠΎΠ΄ΠΈΠ½ ΠΈΠ· Π·Π°Π²ΠΈΡΠΈΠΌΡΡ
ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅Π»Π΅ΠΉ ΡΠ΅ΠΊΠΎΠΌΠ΅Π½Π΄ΡΠ΅ΡΡΡ Π΄Π΅Π»Π°ΡΡ Π²ΡΠ±ΡΠ°Π½Π½ΡΠΌ, ΡΡΠΎ ΠΌΠΎΠΆΠ½ΠΎ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ ΠΏΡΠΈ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠΈ ΡΠΎΡΠΌΡ ΠΈΠ»ΠΈ Π² ΠΏΡΠΎΡΠ΅ΡΡΠ΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ.
ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ: ΠΡΠΌΠ΅Π½Π° Π²ΡΠ±ΠΎΡΠ° Π·Π°Π²ΠΈΡΠΈΠΌΠΎΠ³ΠΎ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅Π»Ρ ΠΏΡΠΎΠΈΡΡ
ΠΎΠ΄ΠΈΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΏΡΠΈ Π²ΡΠ±ΠΎΡΠ΅ Π΄ΡΡΠ³ΠΎΠ³ΠΎ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅Π»Ρ ΠΈΠ· ΡΡΠΎΠΉ ΠΆΠ΅ Π³ΡΡΠΏΠΏΡ.
ΠΡΠΎΠΌΠ΅ ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»Π΅Π½Π½ΡΡ
ΡΠΏΠΎΡΠΎΠ±ΠΎΠ² ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅Π»Π΅ΠΉ Π² Π³ΡΡΠΏΠΏΡ, Delphi ΠΈΠΌΠ΅Π΅Ρ ΡΠΏΠ΅ΡΠΈΠ°Π»ΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΡΠΉ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ RadioGroup, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡΠΈΠΉ ΡΠΎΠ±ΠΎΠΉ Π³ΡΡΠΏΠΏΡ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅Π»Π΅ΠΉ RadioButton.
ΠΡΠΎ ΠΏΠ°Π½Π΅Π»Ρ, ΠΊΠΎΡΠΎΡΠ°Ρ ΠΌΠΎΠΆΠ΅Ρ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ ΡΠ΅Π³ΡΠ»ΡΡΠ½ΠΎ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½Π½ΡΠ΅ ΡΡΠΎΠ»Π±ΡΠ°ΠΌΠΈ ΠΈ ΡΡΡΠΎΠΊΠ°ΠΌΠΈ ΡΠ°Π΄ΠΈΠΎΠΊΠ½ΠΎΠΏΠΊΠΈ. ΠΠ°Π΄ΠΏΠΈΡΡ Π² Π»Π΅Π²ΠΎΠΌ Π²Π΅ΡΡ
Π½Π΅ΠΌ ΡΠ³Π»Ρ ΠΏΠ°Π½Π΅Π»ΠΈ (ΡΠΈΡ. 2) ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅ΡΡΡ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎΠΌ Caption.
Π ΠΈΡ. 2
procedure TForm1. FormCreate (Sender: TObject);
begin
radiogroup1.Items.Add ('ΠΏΠ΅ΡΠ²ΡΠΉ');
radiogroup1.Items.Add ('Π²ΡΠΎΡΠΎΠΉ);
radiogroup1.Items.Add ('ΡΡΠ΅ΡΠΈΠΉ');
radiogroup1.Items.Add ('ΡΠ΅ΡΠ²Π΅ΡΡΡΠΉ);
radiogroup1.Items.Add ('ΠΏΡΡΡΠΉ');
radiogroup1.Items.Add ('ΡΠ΅ΡΡΠΎΠΉ');
radiogroup1.Columns:=3;
radiogroup1.ItemIndex:=4
end;
end.