Редактирование dataGridView в новой форме при DoubleClick - C# - Ответ 10767030

//---------------------------------------------------------------------------
void __fastcall TFOrganizations::ActionEditExecute(TObject *Sender)
{
 if (dmData->QueryOrg->Eof) return;
  FOrganizationsEdit->ID = dmData->QueryOrg->FieldByName("ID")->AsInteger;
  FOrganizationsEdit->ShowModal();
  ID = FOrganizationsEdit->ID;
  SQLOrg();
}
//---------------------------------------------------------------------------
void __fastcall TFOrganizations::DBGOrganizationsTitleClick(TColumn *Column)
{
 for (int i = 0; i < DBGOrganizations->Columns->Count; i++)
  DBGOrganizations->Columns->Items[i]->Title->Font->Color = clWindowText;
  Column->Title->Font->Color = clBlue;
  IndexT  = Column->FieldName;
  try{
    ID = dmData->QueryOrg->FieldByName("ID")->AsInteger;}
  catch(...){}
  SQLOrg();
}
//---------------------------------------------------------------------------
void __fastcall TFOrganizations::FormCreate(TObject *Sender)
{
   Search<<loPartialKey<<loCaseInsensitive;
// Выделение цветом индексируемого столбца
  DBGOrganizations->Columns->Items[0]->Title->Font->Color = clBlue;
  IndexT = "Name";
  ID     = -1;
}
//---------------------------------------------------------------------------
void __fastcall TFOrganizations::FormActivate(TObject *Sender)
{
   SearchChange = false;   // признак поиска
  MainForm->ShowFind(true, StatusBar1);  // очистить строку поиска
  SQLOrg();
}
//---------------------------------------------------------------------------
void __fastcall TFOrganizations::FormKeyPress(TObject *Sender, char &Key)
{
 if(!DBGOrganizations->Focused()) return;
   if(Key == '\b')  // BackSpace
      SearchStr = SearchStr.SubString(1,SearchStr.Length() - 1);
   else
      SearchStr += Key;
   SearchData();  // найти запись
   if(Key == '\x1B')  // Esc
      SearchStr = "";
   Key = 0;
   MainForm->ShowFind(false, StatusBar1);  // очистить строку поиска
}
//---------------------------------------------------------------------------
// найти запись
void __fastcall TFOrganizations::SearchData()
{
  AnsiString LocatedField = DBGOrganizations->SelectedField->FieldName.UpperCase(); // поле поиска
  try
  { SearchChange = true;
    dmData->QueryOrg->Locate(LocatedField, SearchStr, Search);
    SearchChange = false;
  }
  catch(...)
  {}
}
//---------------------------------------------------------------------------
void __fastcall TFOrganizations::SQLOrg()
{
  dmData->QueryOrg->DisableControls();
  dmData->QueryOrg->Close();
  dmData->QueryOrg->SQL->Clear();
  dmData->QueryOrg->SQL->Add("select * from tb_organizations order by " + IndexT);
  dmData->QueryOrg->Open();
  if (ID != -1)
    try{
        dmData->QueryOrg->Locate("ID", ID, Search);}
    catch(...){}
  dmData->QueryOrg->EnableControls();
}
//---------------------------------------------------------------------------
void __fastcall TFOrganizations::ActionAddExecute(TObject *Sender)
{
  FOrganizationsEdit->ID = -1;
  FOrganizationsEdit->ShowModal();
  ID = FOrganizationsEdit->ID;
  SQLOrg();
}
//---------------------------------------------------------------------------
void __fastcall TFOrganizations::ActionCloseExecute(TObject *Sender)
{
  if (Application->MessageBox("Вы действительно хотите закрыть Справочник -> Организации?",
  "Программа сообщает:", MB_YESNO + MB_ICONQUESTION) == IDYES)
    Close();
}
//---------------------------------------------------------------------------
void __fastcall TFOrganizations::ActionDelExecute(TObject *Sender)
{
  ID = dmData->Delete(dmData->QueryOrg, "tb_organizations", "ID");
  SQLOrg();
}
//---------------------------------------------------------------------------