Курсовая работа: Программа игры Кости

{

Image3->Show ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: Image2MouseUp (TObject *Sender, TMouseButton Button,

TShiftState Shift, int X, int Y)

{

Image3->Hide ();

name=Edit1->Text;

if ( (name! ="") && (name! =" ")) {

Form2->Show ();

Form2->Label4->Caption=name;

Form1->Hide (); }

else

{ShowMessage ("Ââåäèòå èìÿ"); }

}

// ---------------------------------------------------------------------------

Form2

// ---------------------------------------------------------------------------

#include <vcl. h>

#pragma hdrstop

#include "Unit1. h"

#include "Unit2. h"

#include "Unit4. h"

#include "Unit3. h"

#include "Unit1. h"

#include "Unit5. h"

// ---------------------------------------------------------------------------

#pragma package (smart_init)