DBAvGrid and EditorType edControlDropDown

VCL TMS VCL UI Pack
1

I insert such code in the GetEditorType event... but the btn does not appear..
may you help me?

procedure TForm1.DBAdvGrid1GetEditorType(Sender: TObject; ACol,
  ARow: Integer; var AEditor: TEditorType);
  var
   btn : TFooterButton;
 case ACol of
    3 :
    begin
      AEditor := edControlDropDown;
      DBAdvGrid1.ControlDropDown.Control := Frame21;
      DBAdvGrid1.ControlDropDown.FocusBorderColor := clFuchsia;
      btn := DBAdvGrid1.ControlDropDown.DropDownFooter.Buttons.Add;
      btn.Caption := 'test';
      btn.Width := 20;
      BTN.Height := 20;
      btn.ModalResult := mrCancel;
      btn.Enabled := true;

2

It is by design that the dropdown control becomes available when editing effectively starts in the cell. Do you start the editing in the cell?

3

Sorry Mr Bruno..
I do not understand your reply
My problem (aim) is that i want to add button to the controldropdown at runtime and the code that I post does not work and I do not understand what i wrong.

4

Please try to move the code:


  DBAdvGrid1.ControlDropDown.Control := Frame21;
      DBAdvGrid1.ControlDropDown.FocusBorderColor := clFuchsia;
      btn := DBAdvGrid1.ControlDropDown.DropDownFooter.Buttons.Add;
      btn.Caption := 'test';
      btn.Width := 20;
      BTN.Height := 20;
      btn.ModalResult := mrCancel;
      btn.Enabled := true;

to the grid.OnGetEditorProp event.
5

Dear Mr. Bruno
Many Thanks (work)