Subversion Repositories svnkaklik

Rev

Details | Last modification | View Log

Rev Author Line No. Line
6 kaklik 1 
unit Unit1;
2 
 
3 
interface
4 
 
5 
uses
6 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 
  Dialogs, StdCtrls;
8 
 
9 
type
10 
  THlavni_Formular = class(TForm)
11 
    Label1: TLabel;
12 
    Button1: TButton;
13 
    procedure Button1Click(Sender: TObject);
14 
  private
15 
    { Private declarations }
16 
  public
17 
    { Public declarations }
18 
  end;
19 
 
20 
var
21 
  Hlavni_Formular: THlavni_Formular;
22 
 
23 
implementation
24 
 
25 
{$R *.dfm}
26 
 
27 
procedure THlavni_Formular.Button1Click(Sender: TObject);
28 
begin
29 
      if Tlacitko.Caption='èesky' then
30 
        begin
31 
          Label1.Caption:='Ahoj Všichni!';
32 
          Tlacitko.Caption:='English';
33 
        end
34 
       else
35 
        begin
36 
          Label1.Caption:='Hello World!';
37 
          Tlacitko.Caption:='èesky';
38 
        end;
39 
 
40 
 
41 
end.