0,0 → 1,41 |
unit Unit1; |
|
interface |
|
uses |
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
Dialogs, StdCtrls; |
|
type |
THlavni_Formular = class(TForm) |
Label1: TLabel; |
Button1: TButton; |
procedure Button1Click(Sender: TObject); |
private |
{ Private declarations } |
public |
{ Public declarations } |
end; |
|
var |
Hlavni_Formular: THlavni_Formular; |
|
implementation |
|
{$R *.dfm} |
|
procedure THlavni_Formular.Button1Click(Sender: TObject); |
begin |
if Tlacitko.Caption='èesky' then |
begin |
Label1.Caption:='Ahoj Vichni!'; |
Tlacitko.Caption:='English'; |
end |
else |
begin |
Label1.Caption:='Hello World!'; |
Tlacitko.Caption:='èesky'; |
end; |
|
|
end. |