PopupMenu1 menyusidagi Qo`yish deb nomlangan tugmaning kodi
void __fastcall TForm1::Qoyish1Click(TObject *Sender)
{
Memo1->PasteFromClipboard();
}
//---------------------------------------------------------------------------
Dastudagi ayrim komponentalarning kodlari
Memo1 komponentasini OnKeyPress xususiyatiga yoziladigan kodlar
void __fastcall TForm1::Memo1KeyPress(TObject *Sender, char &Key)
{
int qator=Memo1->Lines->Count;
int simvol=Memo1->Text.Length();
StatusBar1->SimpleText=IntToStr(qator)+" ta qator "+IntToStr(simvol)+" ta belgi";
}
//---------------------------------------------------------------------------
FindDialog1 komponentasini OnFind xususiyatiga yoziladigan kodlar
void __fastcall TForm1::FindDialog1Find(TObject *Sender)
{
AnsiString qid=FindDialog1->FindTextA;
int k=Memo1->Text.Pos(qid);
if (k>0)
{
Memo1->SelStart=k-1;
Memo1->SelLength=qid.Length();
Memo1->SetFocus();
}
else
{
ShowMessage("Qidirilayotgan matn mavjud emas!");
}
}
//---------------------------------------------------------------------------
Ushbu dastur Reason Corporatsiyasi tomonidan ishlab chiqilgan
Foydalanilgan adabiyotlar:
“Dasturlash asoslari” ma’ruzalar matni Sh.X.I.Sulaymon
“C++ Builderdan videodarsliklar” Sh.X.I.Sulaymon elektron dastur
©ReasonSoft 2017-2018
Xo`ja – 2018 - yil
Do'stlaringiz bilan baham: |