Hello
DropDownForm assigned to the property DBGridEh1.Columns [1] .DropDownFormParams.DropDownForm
intended to be called when clicking on the DBGridEh1.Columns [1] button.
And not meant to call from the outside.
However, you can call the Form from an external event using the following code:
type
TAxisBarDropDownFormCallParamsEhCrack = class(TAxisBarDropDownFormCallParamsEh);
Code:
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
Handled: Boolean;
CallParams: TAxisBarDropDownFormCallParamsEhCrack;
begin
CallParams := TAxisBarDropDownFormCallParamsEhCrack(DBGridEh1.Columns[1].EditButton.DropDownFormParams);
CallParams.FDataLink := DBGridEh1.DataLink;
CallParams.FField := DBGridEh1.Columns[1].Field;
CallParams.FOnGetActualDropDownFormProc := nil;
CallParams.FPlaceBox := nil;
CallParams.FEditControl := DBGridEh1.InplaceEditor;
CallParams.FEditControlScreenRect := EmptyRect;
CallParams.CheckShowDropDownForm(Handled);
end;