Hide Inspector Description Pane

Unit NoInspectorDescriptionPane;

Interface

Procedure Register;

Implementation

Uses
    Forms, Classes, Controls, Dialogs;

Function FindObjectInspector: TComponent;
Var
    I: Integer;
Begin
    Result := Nil;
    For I := 0 To Screen.FormCount - 1 Do
        If Screen.Forms[I].ClassName = 'TPropertyInspector' Then
            Exit(Screen.Forms[I]);
End;

Procedure Register;
Var
    aComp: TComponent;
Begin
    aComp := FindObjectInspector;
    If Assigned(aComp) Then
    Begin
        aComp := aComp.FindComponent('DescriptionPane');
        If Assigned(aComp) Then
        Begin
            (aComp As TControl).Height := 0;
        End;
    End;
End;

End.