Реферат Гра "П'ятнашки"

.N3Click (Sender: TObject);. label5. Caption:=inttostr (pob);. Label7. Caption:=inttostr (pob1);. Label6. Caption:=inttostr (por);. Label8. Caption:=inttostr (por1);. Show;;;

Модуль Unit2.pas

var: TForm2;

Unit1, Unit3;

{$ R *. dfm}

TForm2. Button1Click (Sender: TObject);. Show;;

TForm2. Button2Click (Sender: TObject);;;

TForm2. Button3Click (Sender: TObject);. Show;;.

Модуль Unit3.pas

var: TForm3;, pob1, por, por1: string;

{$ R *. dfm}

TForm3. Label5Click (Sender: TObject);. Caption:=pob;;

TForm3. Label6Click (Sender: TObject);. Caption:=por;;

TForm3. Label7Click (Sender: TObject);. Caption:=pob1;;

procedure TForm3. Label8Click (Sender: TObject);. Caption:=por1;;

.