Názory ke článku Delphi - 5. lekce – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Názory ke článku Delphi - 5. lekce – Programujte.comNázory ke článku Delphi - 5. lekce – Programujte.com

 

Názory ke článku Delphi - 5. lekce

Zralok   NOVÝ
17. 10. 2009

unit prace3;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
var i:boolean;
var text:string;
procedure TForm1.Button1Click(Sender: TObject);

begin
if i=TRUE then
begin
Button1.Caption:='Baaaaaaaaaaaaaaaaaaaaaf, klikni znova a mužeš se leknout znovu';
i:=FALSE;
end
else
begin
Button1.Caption:=text;
i:=TRUE;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
i:=TRUE;
text:='Ahoj pokud klepneš na tlačíto čeká tě překvápko :-)';
end;

end.

Zralok   NOVÝ
17. 10. 2009

unit prace3;


interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
var i:boolean;
var text:string;
procedure TForm1.Button1Click(Sender: TObject);

begin
if i=TRUE then
begin
Button1.Caption:='Baaaaaaaaaaaaaaaaaaaaaf, klikni znova a mužeš se leknout znovu';
i:=FALSE;
end
else
begin
Button1.Caption:=text;
i:=TRUE;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
i:=TRUE;
text:='Ahoj pokud klepneš na tlačíto čeká tě překvápko :-)';
end;

end.

Dankic   NOVÝ
6. 2. 2014

Já to provedl takhle:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (i mod 2 = 0) then Button1.Caption := 'Dopredu'
    else Button1.Caption := 'Dozadu';
  i := i+1;
end;

neskvik   NOVÝ
10. 5. 2014

Není to jednoduší takto??

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Button1.Tag = 0 then
  begin
    Button1.Tag := 1;
    Button1.Caption := 'Dopredu';
  end
  else begin
    Button1.Tag := 0;
    Button1.Caption := 'Dozadu';
  end;
end;

Přidej svůj názor

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo e-mailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Reaguješ na příspěvek:
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové názory e-mailem (pouze pro přihlášené)
Sleduj názory ke článku a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.



Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032016 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý