| 0,0 → 1,41 |
|---|
| unit pokus_p; |
| |
| interface |
| |
| uses |
| Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| Dialogs, ComCtrls, StdCtrls, Buttons; |
| |
| type |
| TForm1 = class(TForm) |
| Button1: TButton; |
| RadioButton1: TRadioButton; |
| CheckBox1: TCheckBox; |
| procedure Button1Click(Sender: TObject); |
| private |
| { Private declarations } |
| public |
| { Public declarations } |
| end; |
| |
| var |
| Form1: TForm1; |
| |
| implementation |
| |
| {$R *.dfm} |
| |
| procedure TForm1.Button1Click(Sender: TObject); |
| begin |
| if CheckBox1.Checked = true then |
| begin |
| ShowMessage('ble'); |
| RadioButton1.Checked := false; |
| end |
| else |
| RadioButton1.Checked := true; |
| Beep; |
| |
| end; |
| |
| end. |