Esempi in C++ (Cpp) per TPartnerListForm

Esempio n. 1

//---------------------------------------------------------------------------
void __fastcall TNakladnaForm::ButtonEditPostachPropertiesButtonClick(
      TObject *Sender, int AButtonIndex)
{
   //
   TPartnerListForm * pf = new TPartnerListForm(this, ptPokupec);
   pf->ShowModal();
   if(pf->SelectedItem)
   {
      Document->Partner = pf->SelectedItem;
      EditPartner->Text = Document->Partner->NamePartner;
   }
   delete pf;
}

Esempio n. 2

void __fastcall TFormReport::EditPartnerPropertiesButtonClick(
      TObject *Sender, int AButtonIndex)
{
  //
   TPartnerListForm * pf = new TPartnerListForm(this);
   pf->ShowModal();
   if(pf->SelectedItem)
   {
//      Document->Partner = pf->SelectedItem;
      EditPartner->Text = pf->SelectedItem->NamePartner;
      id_partner = pf->SelectedItem->ID_Partner;
      FrameList1->Query->SQL->Text = DateReplace(QueryStr);
      Refresh();
   }
   delete pf;
}