We want to set FilterBar in Edit value of TCRDBGrid as programmatically.
We're tried following code:
Code: Select all
DBGrid->ActivateFilterEdit(DBGrid->Columns->Items[4]);
TComponent* component;
TCRGridTitleEdit* CRGridTitleEdit;
int count = DBGrid->ComponentCount;
for (int i=0; i < count; i++)
{
component = DBGrid->Components[i];
CRGridTitleEdit = dynamic_cast<TCRGridTitleEdit*>(component);
if (CRGridTitleEdit)
{
//CRGridTitleEdit->Edit->OnKeyDown(CRGridTitleEdit->Edit, VK_RETURN, TShiftState() );
CRGridTitleEdit->Edit->OnKeyDown(CRGridTitleEdit->Edit, VK_RETURN, TShiftState() );
CRGridTitleEdit->EditingFilter = true;
CRGridTitleEdit->StartEdit();
CRGridTitleEdit->Edit->Modified = true;
CRGridTitleEdit->Edit->Text = "FİLTER TEXT*";
CRGridTitleEdit->Edit->OnChange(CRGridTitleEdit->Edit);
break;
}
}
DBGrid->Filtered = true;
How to fix this problem ?
Thanks for support.