RxDBGrid1->Columns->Clear();
TColumn* newCol = (TColumn*)RxDBGrid1->Columns->Insert(0);
newCol->Title->Caption = "Вставили первый столбец";
newCol->Width = RxDBGrid1->ClientWidth-20;
newCol->Field = DBM->Firms->FieldByName("FName");
Как динамически добавить колонки в TDBGrid ?
Как ?
Делаю так:
DBGrid1->Column->Add();
DBGrid1->Column->
И дальше из хелпа ничего не понимаю....
Подскажите, а...
Плиз. Ну нет пока навыка у меня...
Помогите примером.
Делаю так:
DBGrid1->Column->Add();
DBGrid1->Column->
И дальше из хелпа ничего не понимаю....
Подскажите, а...
Плиз. Ну нет пока навыка у меня...
Помогите примером.
Цитата:
Originally posted by TitGen
Как ?
Делаю так:
DBGrid1->Column->Add();
DBGrid1->Column->
И дальше из хелпа ничего не понимаю....
Подскажите, а...
Плиз. Ну нет пока навыка у меня...
Помогите примером.
Как ?
Делаю так:
DBGrid1->Column->Add();
DBGrid1->Column->
И дальше из хелпа ничего не понимаю....
Подскажите, а...
Плиз. Ну нет пока навыка у меня...
Помогите примером.
Код:
Цитата:
Originally posted by AlexandrVSmirno
Код:
RxDBGrid1->Columns->Clear();
TColumn* newCol = (TColumn*)RxDBGrid1->Columns->Insert(0);
newCol->Title->Caption = "Вставили первый столбец";
newCol->Width = RxDBGrid1->ClientWidth-20;
newCol->Field = DBM->Firms->FieldByName("FName");
TColumn* newCol = (TColumn*)RxDBGrid1->Columns->Insert(0);
newCol->Title->Caption = "Вставили первый столбец";
newCol->Width = RxDBGrid1->ClientWidth-20;
newCol->Field = DBM->Firms->FieldByName("FName");
Делаю немного иначе:
void __fastcall TMainForm::AddColumnToGrids(TObject *Sender)
{
// Определяем внешний вид колонок ГРИДов
TColumn *Col;
DataModule1->DataSourceGreeds->DataSet->First();
while (! DataModule1->DataSourceGreeds->DataSet->Eof )
{
Col = DBGridOper->Columns->Add();
Col->FieldName = DataModule1->DataSourceGreeds->DataSet->FieldByName("NameField")->AsString;
Col->Title->Caption = DataModule1->DataSourceGreeds->DataSet->FieldByName("Title")->AsString;
Col->Title->Alignment = taCenter;
Col->Title->Font->Style = TFontStyles()<< fsBold;
DataModule1->DataSourceGreeds->DataSet->Next();
}
}
Но все-равно спасибо.
8-))