delphi – TCustomControl如何接收输入焦点？

发布时间：2020-12-15 09:35:38 所属栏目：大数据来源：网络整理

导读：我正在编写一个基于TCustomControl的网格控件,所以我可以自己处理所有的结构,绘画和导航.我似乎无法弄清楚的是这个：在我的构造函数中,我将ControlStyle设置为： ControlStyle := ControlStyle + [csCaptureMouse,csClickEvents,csDoubleClicks,csNeedsBord

我正在编写一个基于TCustomControl的网格控件,所以我可以自己处理所有的结构,绘画和导航.我似乎无法弄清楚的是这个：

在我的构造函数中,我将ControlStyle设置为：

ControlStyle := ControlStyle + [csCaptureMouse,csClickEvents,csDoubleClicks,csNeedsBorderPaint,csPannable];

我的想法是,如果控件处理鼠标事件,我可以做像设置选择等事情.我注意到控件永远不会得到焦点.我碰巧在表单上有一个TComboBox,并且在创建表单时它显然是焦点.无论我在网格中点击多少次,焦点都会停留在组合框上.

这当然也会影响我对键盘事件的处理.

所以问题是,当你点击它时,如何确定焦点应转移到控件上？

解决方法

CustomControl应该在单击时调用SetFocus.

procedure TMyCustomControl.MouseDown(Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
  inherited;

  if not (csDesigning in ComponentState) and CanFocus then
    SetFocus;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!