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

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

解决方案 »

  1.   

    Form.ActiveControl可以得到当前的FocusControl
      

  2.   

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

  3.   

    不可能的，你是如何写的？
    我是这样写的,假设他们都是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;
      

  4.   

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

  5.   

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

  6.   

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

  7.   

    Wind API  GetFocus可以得到句柄