unit1.~pas

delphi 在运行期的控件的只有放大缩小以及移动

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons, frxClass, cxControls, cxContainer, cxEdit,
  cxTextEdit, cxDBEdit, cxLabel, cxDBLabel;

type

  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormResize(Sender: TObject);
  private
    bInsert : Boolean;
    procedure DrawBackground;
    { Private declarations }
  public
    { Public declarations }
  end;

  TA  = class(TPanel)
  private
     FDown :Boolean;
     FOldX : TPoint;
     FOldY : TPoint;
     ShapeList : Array[1..8] of TShape;

    FRectList: array[1..8] of TRect;
    FPosList: array[1..8] of Integer;
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer); override;
    procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
    procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
         X, Y: Integer); override;
    procedure CMExit(var Message: TCMExit); message CM_EXIT;
    procedure aaa(var a :TWMERASEBKGND); message WM_ERASEBKGND;
    procedure WmNcHitTest(var Msg: TWmNcHitTest); message wm_NcHitTest;
    procedure WmSize(var Msg: TWmSize); message wm_Size;
    procedure WmLButtonDown(var Msg: TWmLButtonDown); message wm_LButtonDown;
    procedure WmMove(var Msg: TWmMove); message Wm_Move;
  public
    FCanvas : TCanvas;
    FControl : TControl;
    procedure Paint; override;

    constructor Create(AOwner: TComponent); override;
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Types;

{$R *.DFM}

{ TA }

procedure TA.WmNcHitTest(var Msg: TWmNcHitTest);
var
  Pt: TPoint;
  I: Integer;
begin

  Pt := Point(Msg.XPos, Msg.YPos);
  Pt := ScreenToClient(Pt);
  Msg.Result := 0;
  //??公?