diff --git a/debugger/inspectdlg.pas b/debugger/inspectdlg.pas index 5fdb2b917d..22d6fff20a 100644 --- a/debugger/inspectdlg.pas +++ b/debugger/inspectdlg.pas @@ -869,7 +869,7 @@ begin Exit; end; case FDBGInfo.Kind of - skClass: InspectClass(); + skClass, skObject, skInterface: InspectClass(); skRecord: InspectRecord(); skVariant: InspectVariant(); skEnum: InspectEnum; @@ -882,6 +882,10 @@ begin skArray: InspectSimple(); skPointer: InspectPointer(); // skDecomposable: ; + else begin + Clear; + StatusBar1.SimpleText:=Format(lisInspectUnavailableError, [ShortenedExpression, FHumanReadable]); + end; end; end;