procedure TfrmMain.ControlMouseDown(Sender: TObject; //按钮的MouseDown用到
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
with ComponentInspector do
if (Instance<>Sender) or (InstanceCount<>1) then Instance:=Sender as TComponent;
end;
对象编辑器的.Instance 指向那个控件,就显示那个控件的属性