ΠŸΠΎΠΌΠΎΡ‰ΡŒ Π² написании студСнчСских Ρ€Π°Π±ΠΎΡ‚
АнтистрСссовый сСрвис

Delphi-элСмСнты: 1. RadioButton 2. ScrollBox 3. Animate 4. MediaPlayer 5. FimdDialog 6. ShellComboBox

ΠšΡƒΡ€ΡΠΎΠ²Π°ΡΠŸΠΎΠΌΠΎΡ‰ΡŒ Π² Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠΈΠ£Π·Π½Π°Ρ‚ΡŒ ΡΡ‚ΠΎΠΈΠΌΠΎΡΡ‚ΡŒΠΌΠΎΠ΅ΠΉ Ρ€Π°Π±ΠΎΡ‚Ρ‹

Рассмотрим свойства ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ‚Π° RadioButton. Procedure TForm1. FormCreate (Sender: TObject); Procedure TForm1. FormCreate (Sender: TObject); Π—Π½Π°Ρ‡ΠΎΠΊ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ‚Π° RadioButton. Radiogroup1.Items.Add ('Ρ‡Π΅Ρ‚Π²Π΅Ρ€Ρ‚Ρ‹ΠΉ); Radiogroup1.Items.Add ('ΡˆΠ΅ΡΡ‚ΠΎΠΉ'); Radiogroup1.Items.Add ('Ρ‚Ρ€Π΅Ρ‚ΠΈΠΉ'); Radiogroup1.Items.Add ('ΠΏΠ΅Ρ€Π²Ρ‹ΠΉ'); Radiogroup1.Items.Add ('Π²Ρ‚ΠΎΡ€ΠΎΠΉ); Radiogroup1.Items.Add ('пятый'); ΠšΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ‚ RadioButton… Π§ΠΈΡ‚Π°Ρ‚ΡŒ Π΅Ρ‰Ρ‘ >

Delphi-элСмСнты: 1. RadioButton 2. ScrollBox 3. Animate 4. MediaPlayer 5. FimdDialog 6. ShellComboBox (Ρ€Π΅Ρ„Π΅Ρ€Π°Ρ‚, курсовая, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½Ρ‚Ρ€ΠΎΠ»ΡŒΠ½Π°Ρ)

Π‘ΠΎΠ΄Π΅Ρ€ΠΆΠ°Π½ΠΈΠ΅

  • Π’Π²Π΅Π΄Π΅Π½ΠΈΠ΅
  • ΠšΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ‚ RadioButton
  • ΠšΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ‚ ScrollBox
  • ΠšΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ‚ Animate
  • ΠšΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ‚ MediaPlayer
  • ΠšΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ‚ FindDialog
  • ΠšΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ‚ — ShellComboBox
  • Π—Π°ΠΊΠ»ΡŽΡ‡Π΅Π½ΠΈΠ΅
  • Бписок использованной Π»ΠΈΡ‚Π΅Ρ€Π°Ρ‚ΡƒΡ€Ρ‹

ΠšΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ‚ 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.

ΠŸΠΎΠΊΠ°Π·Π°Ρ‚ΡŒ вСсь тСкст

Бписок Π»ΠΈΡ‚Π΅Ρ€Π°Ρ‚ΡƒΡ€Ρ‹

  1. А. Π―. ΠΡ€Ρ…Π°Π½Π³Π΅Π»ΡŒΡΠΊΠΈΠΉ 100 ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ‚ΠΎΠ² Delphi.- М., Π‘ΠΈΠ½ΠΎΠΌ, 2006 — 928с.
  2. Π’.Π“ΠΎΡ„ΠΌΠ°Π½, А. Π₯ΠΎΠΌΠΎΠ½Π΅Π½ΠΊΠΎ Delphi 6 Π² ΠΏΠΎΠ΄Π»ΠΈΠ½Π½ΠΈΠΊΠ΅. БПб., Π‘Π₯Π’-ΠŸΠ΅Ρ‚Π΅Ρ€Π±ΡƒΡ€Π³, 2002 1152с.
  3. Π˜Π»Π»ΡŽΡΡ‚Ρ€ΠΈΡ€ΠΎΠ²Π°Π½Π½Ρ‹ΠΉ ΡΠ°ΠΌΠΎΡƒΡ‡ΠΈΡ‚Π΅Π»ΡŒ ΠΏΠΎ Delphi 6
  4. Π˜Π»Π»ΡŽΡΡ‚Ρ€ΠΈΡ€ΠΎΠ²Π°Π½Π½Ρ‹ΠΉ ΡΠ°ΠΌΠΎΡƒΡ‡ΠΈΡ‚Π΅Π»ΡŒ ΠΏΠΎ Delphi 7
Π—Π°ΠΏΠΎΠ»Π½ΠΈΡ‚ΡŒ Ρ„ΠΎΡ€ΠΌΡƒ Ρ‚Π΅ΠΊΡƒΡ‰Π΅ΠΉ Ρ€Π°Π±ΠΎΡ‚ΠΎΠΉ