FormDoc上怎样获取焦点或活动控件

kitchan

如题

zfang

楼主，是想在功能中访问到docview索引用的表单文档里的组件么？业务信息名
业务信息名.T表单文档名(DocView.Doc).控件名

kitchan

最初由 zfang 发布
[B]楼主，是想在功能中访问到docview索引用的表单文档里的组件么？业务信息名
业务信息名.T表单文档名(DocView.Doc).控件名 [/B]

不是这个意思，delphi的TFORM类不是有一个ActiveControl属性吗，能返回当前FORM中的活动控件，我现在TFROMDOC类中通过什么方法可得到相同的结果，获取当前活动的control

zfang

比如，formdoc上放有edit1
procedure TSWCLCSWG.Edit2Enter(Sender: TObject);
begin
  Dialogs.ShowMessage(TControl(Sender).Name )
end;

功能中 的话，这样子用试试
Dialogs.ShowMessage(ActiveControl.Name);

kitchan

最初由 zfang 发布
[B]比如，formdoc上放有edit1
procedure TSWCLCSWG.Edit2Enter(Sender: TObject);
begin
  Dialogs.ShowMessage(TControl(Sender).Name )
end;

功能中 的话，这样子用?.

以下省略...... [/B]

如果FormDoc上有N个不同类型的control，岂不是我要为每个control编写onenter onfocus事件代码

zfang

上面只是举例，你用功能中的方式就简单了。