Subversion Repositories svnkaklik

Rev

Details | Last modification | View Log

Rev Author Line No. Line
6 kaklik 1
unit pokus_p;
2
 
3
interface
4
 
5
uses
6
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7
  Dialogs, ComCtrls, StdCtrls, Buttons;
8
 
9
type
10
  TForm1 = class(TForm)
11
    Button1: TButton;
12
    RadioButton1: TRadioButton;
13
    CheckBox1: TCheckBox;
14
    procedure Button1Click(Sender: TObject);
15
  private
16
    { Private declarations }
17
  public
18
    { Public declarations }
19
  end;
20
 
21
var
22
  Form1: TForm1;
23
 
24
implementation
25
 
26
{$R *.dfm}
27
 
28
procedure TForm1.Button1Click(Sender: TObject);
29
begin
30
  if CheckBox1.Checked = true then
31
    begin
32
      ShowMessage('ble');
33
      RadioButton1.Checked := false;
34
    end
35
  else
36
    RadioButton1.Checked := true;
37
  Beep;
38
 
39
end;
40
 
41
end.