|
Adding the button into edit line
The button in edited line of TCommonInspector component can be displayed by OnGetButtonType event. By default the passed Value is btNone, but this can be set to btDropDown or btDialog. The code below places the dialog-type button into 3rd item of the inspector:
procedure TForm1.CommonInspector1GetButtonType(Sender: TObject;
TheIndex: Integer; var Value: TButtonType);
begin
if TheIndex=2 then Value:=btDialog;
end;
|