rttidesign.pas

Delphi运行时设计

unit RttiDesign;

interface

uses
  Controls, Windows, Messages, SysUtils, Classes, ExtCtrls, Graphics, Contnrs;

type

  TExtControl = class(TControl);

  TBeforeSelectEvent = procedure(Sender: TObject; Selected:TControl;
                                 var Select:Boolean) of object;

  TCanMoveEvent = procedure (Sender: TObject; Control:TControl;
                             var CanMove: Boolean) of object;

  TCanResizeControlEvent = procedure(Sender: TObject; var CanResize: Boolean) of object;

  TRttiDesign = class(TComponent)
  private
    _InReposition: boolean;       // Se est