如何知道一个对象是从TWinControl继承下来的？

[yancey]

for i:=0 to TForm(Sender).ControlCount-1 do
begin
//如果 TForm(Sender).Controls[i] 是从TWinControl继承下来的...
end;


这句怎么写呀？

[王集鹄]

for i:=0 to TForm(Sender).ControlCount-1 do
begin
if TForm(Sender).Controls[i] is TWinControl then
{ TODO }
end;

[bee2518]

TForm(Sender).Controls[i] is TWinControl

[Kevin_Lmx]

TForm(Sender).Controls[i].InheritsFrom(TWinControl)...

[jialiuer]

for i:=0 to self.ControlCount-1 do
begin
if self.Controls[i] is TWinControl then
showmessage(self.Controls[i].ClassName + '是从TWinControl继承来的');
end;
试试吧

[ly_liuyang]

Is语句判定

http://lysoft.7u7.net