Hello
You can use TDBGridSearchPanelControlEh.GetSearchInfoBoxText method to get found values as text. But is is protected.
See the code below to access this method.
Other buttons is hardcoded in the method
procedure TSearchPanelControlEh.FindEditorUpdateModified(Sender: TObject);
and other methods
You need to set FFindButtons[AllButtons].Visible False.
But setting this property from an external function doesn't always work.
Code:
type
TDBGridEhCrack = class(TDBGridEh);
TDBGridSearchPanelControlEhCrack = class(TDBGridSearchPanelControlEh);
procedure TForm1.Button1Click(Sender: TObject);
begin
TDBGridSearchPanelControlEhCrack(TDBGridEhCrack(DBGridEh1).FSearchPanelControl).FindButtons[gnfbSearchInfoBoxEh].Visible := False;
TDBGridSearchPanelControlEhCrack(TDBGridEhCrack(DBGridEh1).FSearchPanelControl).FindButtons[gnfbCancelSearchFilterEh].Visible := False;
TDBGridSearchPanelControlEhCrack(TDBGridEhCrack(DBGridEh1).FSearchPanelControl).FindButtons[gnfbFindNextEh].Visible := False;
TDBGridSearchPanelControlEhCrack(TDBGridEhCrack(DBGridEh1).FSearchPanelControl).FindButtons[gnfbFindPrevEh].Visible := False;
TDBGridSearchPanelControlEhCrack(TDBGridEhCrack(DBGridEh1).FSearchPanelControl).FindButtons[gnfbOptionsEh].Visible := False;
Button1.Caption := TDBGridSearchPanelControlEhCrack(TDBGridEhCrack(DBGridEh1).FSearchPanelControl).GetSearchInfoBoxText;
end;