学步园

var
  t:TFrmMain;
begin
  if(self is TForm) then
  begin
    if(self.ClassType=tform) then
    begin
            ShowMessage('tform');
    end
    else if(self.classtype=TFrmMain) then
    begin
      ShowMessage('tform1');
    end;
  end;

end;

delphi中的is运算符可以判断对象是否继承自某一个类，classtype可以判断具体是哪个类。