R. A. Yusupov C++ Builderda masalalar va topshiriqlar samarqand 2018 yil

int k = 0; // btn massiv indeksi

for (int i=0; i<4; i++ ) // to'rt qator tugma

{

left = 8;

for(int j=0;j<4; j++) // xar bir qatorda 4 tadan

{

btn [k] = new TSpeedButton(Form1);

btn[k]->Parent=Form1;//tugmani formaga "o'rnatish"

// tugmalarni sozlash

btn[k]->Left = left;

btn[k]->Top = top;

btn[k]->Width = WBTN;

btn[k]->Height = HBTN;

//btn[k]->Flat = true;

btn[k]->Font->Color = clNavy;

btn[k]->Caption = btnText[k]; // tugmadagi matn

btn[k]->Tag=btnTag[k]; //tugmalar identifikatori

//Click xodisasini qayta ishlash funksiyasini

//berish

btn[k]->OnClick = btnClick;//formaning h-fayl

//tavsifiga qarang

k++;

left = left + WBTN+ DXBTN;

}

top = top + HBTN + DYBTN;

}

//ikkita "0" (btn[12] va btn[13]) tugmalarni bittaga

//birlashtirish

btn[13]->Visible = false;

btn[12]->Width = 2 * WBTN + DXBTN;

op = EQ;

}

// btn[i] tugmani bosish

// (xamma tugmalar uchun bitta funksiya)

void __fastcall TForm1::btnClick(TObject *Sender)

{

TSpeedButton *btn;

int id; // bosilgan tugma identifikatori

btn = (TSpeedButton*)Sender;

//tugmalarning Tag xususiyatida uning identifikatordan

//tashkil topadi

id = btn->Tag;

// "1" .. "9" tugmalar