void __fastcall TForm1::DBGridEh1Columns5GetCellParams(TObject *Sender,
bool EditMode, TColCellParamsEh *Params)
{
// if( ADOQuery1->FieldByName("Flag")->AsString.Trim() == "1")
// Params->ReadOnly = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ADOQuery1AfterScroll(TDataSet *DataSet)
{
if( ADOQuery1->FieldByName("Flag ")->AsString.Trim() == "1")
DBGridEh1->ReadOnly = true;
else
DBGridEh1->ReadOnly = false;
}