如何根据TObject判断是否可视化控件

Question

function IsCtrlVCL(ctrl :TObject) :boolean;
我需要在该函数中判断参数ctrl是否是一个可视的控件,如TEdit,TButton等,用什么方法来判断?

Answer 1

好像TControl事所有可视化控件的父类,你用is 判断ctrl is TControl 是不是应该就可以了
TEdit,TButton 也是她的子孙啊,还是一样可以判断出来的

Answer 2

ctrl is TControl有这样的语法吗?

Answer 3

当然有啦，从TControl继承下来的都是可视化组件，你试试不就知道啦function TForm1.IsCtrlVCL(ctrl: TObject): boolean;
begin
  if ctrl is TControl then result:= true else result:= false;
end;