Читать курсовая по Отсутствует: "Сравнительный анализ языков программирования" Страница 24

(Назад) (Cкачать работу)

{ Private declarations }

{ Public declarations };: TForm6;,i:integer;:string;

implementationNet_bukvi, Est_bukva;

{$R *.dfm}TForm6.Button1Click(Sender: TObject);

begin.Close();.Close();.Close();;

procedure TForm6.FormCreate(Sender: TObject);

begin:=0;;

procedure TForm6.Timer1Timer(Sender: TObject);

begin:=i+1;i> 4 then i:=1;:=intToStr(i)+'.bmp';.Picture.LoadFromFile(s);;:=1+random(16);sl=1 then Panel1.Caption:='100';sl=2 then Panel1.Caption:='200';sl=3 then Panel1.Caption:='300';sl=4 then Panel1.Caption:='500';sl=5 then Panel1.Caption:='700';sl=6 then Panel1.Caption:='800';sl=7 then Panel1.Caption:='100';sl=8 then Panel1.Caption:='1000';sl=9 then Panel1.Caption:='0';sl=10 then Panel1.Caption:='450';sl=11 then Panel1.Caption:='50';sl=12 then Panel1.Caption:='750';sl=13 then Panel1.Caption:='650';sl=14 then Panel1.Caption:='600';sl=15 then Panel1.Caption:='150';sl=16 then Panel1.Caption:='400';;

procedure TForm6.Button2Click(Sender: TObject);

begin.Enabled:=false;.Enabled:=false;.Enabled:=true;;

procedure TForm6.FormShow(Sender: TObject);

begin.Enabled:=true;.Enabled:=true;.Enabled:=false;;.

Пример формы выигрыша\поражения;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, jpeg, ExtCtrls;= class(TForm): TImage;: TLabel;: TLabel;: TButton;: TButton;Button1Click(Sender: TObject);Button2Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm9;

implementation

{$R *.dfm}TForm9.Button1Click(Sender: TObject);

begin.Terminate;;

procedure TForm9.Button2Click(Sender: TObject);

begin.Terminate;(GetCommandLine,SW_SHOWNORMAL);.Spros;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;= class(TForm): TLabel;: TButton;: TButton;Button1Click(Sender: TObject);Button3Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm11;: PChar;

uses Zastavka;

{$R *.dfm}TForm11.Button1Click(Sender: TObject);

begin.Terminate();;

procedure TForm11.Button3Click(Sender: TObject);

begin.Terminate;(GetCommandLine,SW_SHOWNORMAL);.

Похожие работы