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;
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.