Comp: TComponent); if ValueExists(Section, Comp.Name) then if Comp.InheritsFrom(TAction) elseComp.InheritsFrom(TCheckBox) etc end;
TYPE
TformTester = c
我将TAction的ShortCut键设置为BkSp (backspace)。我正在尝试实现Back按钮,就像在web浏览器中一样,所以我需要在任何控件中调用TAction,除了编辑控件(TMemo、TEdit等)。Screen.ActiveControl is TCustomMemo) or (Screen.ActiveControl is TCustomEdit) then exit;对过去的BkSp键TAction
在我的自定义组件中,我创建了一些TAction-s作为子组件。它们都是发布的,但我不能在设计时分配它们,因为它们不能通过对象检查器获得。 with FDefaultAction as TAction do SetSubComponent(True); end;
FCancelAction := TAction.Create(