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可以判斷具體是哪個類。

總結(jié)

以上是生活随笔為你收集整理的Delphi中判断控件的详细类型的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。