Autor Zpráva
ehm
Profil *
prosím pomôžte.
mám knihu o delphi a je tam jden program a nejak mi to nejde.

unit projekt1;


interface

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

type
TPrvy_Program = class(TForm)
Hlavny_formular: TLabel;
Tlacitko: TButton;
procedure TlacitkoClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Prvy_Program: TPrvy_Program;

implementation

{$R *.dfm}

procedure THlavny_formular.TlacitkoClick(Sender: TObject);
begin
if Tlacitko.Caption='Slovensky' then
begin
Labell.Caption:='Ahoj Všetci!';
Tlacitko.Caption:='English';
end;
else
begin
Labell.Caption:='Hello World!';
Tlacitko.Caption:='Slovensky';
end;
end;
end.

čo je tam zle?
Axamith
Profil
Vzhledem k tomu, že toto je fórum o psaní webu, tak se asi odpovědi nedočkáš. Najdi si fórum o Delphi, tam jistě radu dostaneš.
ehm
Profil *
Axamith
pardón.to je pravda.môžete teda vymazať.
temistokles
Profil
Pridal si na formu tlačítko a label? :) Myslím tým ručne, klik to palety a klik na formu. Label sa musí volať (vlastnosť name) Label1 a tlačítko Tlacitko.

A ešte sa mi nepozdáva fakt, že udalosť TlacitkoClick sa volá na objekte Hlavny_formular :)
ehm
Profil *
temistokles
to uz som vyriesil dik.poplietol som to tam.
uz je to ok. dík.

Vaše odpověď

Mohlo by se hodit

 

Prosím používejte diakritiku a interpunkci.

Ochrana proti spamu. Napište prosím číslo dvě-sta čtyřicet-sedm: