objectinspector.pas

类似Delphi Ide的对象查看器 可以在RUNTIME时使用

unit ObjectInspector;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, CompInsp, InspCtrl, MyTabs, ExtCtrls, MyPanel, MySplit,
  MyEdit, MyInspector;

type
  Tfrm_ObjectInspector = class(TForm)
    MyPanel1: TMyPanel;
    MyPanel2: TMyPanel;
    MyPanel3: TMyPanel;
    TabControl: TMyTabControl;
    ComponentComboBox: TComponentComboBox;
    MySizePanel1: TMySizePanel;
    pnlPropertyName: TMyPanel;
    memPropertyDescription: TMyMemo;
    ComponentInspector: TMyComponentInspector;
    procedure TabControlChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComponentInspectorSelectItem(Sender: TObject;
      TheIndex: Integer);
    procedure ComponentComboBoxChange(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_ObjectInspector: Tfrm_ObjectInspector;

implementation

{$R *.dfm}

procedure Tfrm_ObjectInspector.TabControlChange(Sender: TObject);
begin
  ComponentInspector.Mode:=TCompInspMode(TabControl.TabIndex);
end;

procedure Tfrm_ObjectInspector.FormCreate(Sender: TObject);
begin
  Self.Width := 230;
  Self.Height := 400;
  if GetACP=936 then
  begin
    Self.Caption:='对象察看器';
    TabControl.Tabs[0].Caption:='属性';
    TabControl.Tabs[1].Caption:='事件';
  end else if GetACP=950 then
  begin
    Self.Caption:='癸禜诡