怎样得到当前focus的和标题?

[wai_lf]

delphi中，我想得到当前focus（例如，form上有个pagecontrol,pagecontrol中有个panel,panel上有许多tdbedit，若focus在某个tdbedit上，怎样得到句柄和标题）。

[wai_lf]

我检查过，并打印过form.activecontrol的handle,和当前得到focus的control的handle,
两者不一样。

[Wingsun]

不可能的，你是如何写的？
我是这样写的,假设他们都是TEdit.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=IntTostr((ActiveControl as TEdit).Handle);
end;

procedure TForm1.Edit1Enter(Sender: TObject);
begin
Label2.caption:=intToStr((sender as TEdit).Handle);
end;

[meijg]

那我如何知道，现在获得焦点的控件的类型呢，请教wingsun

[JGTM2000]

用Delphi的RTTI。判断可以用if Form.ActiveControl is TButton then之类。。。

[Wingsun]

通过
ActiveControl.ClassType
ActiveControl.ClassName
ActiveControl.ClassNameIs
ActiveControl.ClassInfo
返回RTTI信息。不就知道了吗。

[wsf]

pagecontrol.ActivePageIndex:=0
在0页上的edit1获的焦点:edit1.setfocus;

[Wingsun]

Form.ActiveControl可以得到当前的FocusControl

[icewind]

Wind API GetFocus可以得到句柄