unit1.pas

这个例子让你的程序可以在运行期间对控件进行选取、移动、动态更改所选对象尺寸等可视操作

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Egal, StdCtrls, XPMan, ExtCtrls, ColorGrd, jpeg, Buttons;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    ListBox1: TListBox;
    SpeedButton1: TSpeedButton;
    Panel1: TPanel;
    SpeedButton2: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Veraendern: Markierungen;
  EditMk:Boolean;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
//Form1.DoubleBuffered:=true;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if EditMk then
    try
      if assigned(Veraendern) then
        Veraendern.Destroy;
      Veraendern := nil;
      Veraendern := Markierungen.Create(TControl(Sender));
    except
      Veraendern := Markierungen.Create(TControl(Sender));
    end;
  inherited;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  application.MessageBox(pchar('Test for '+TObject(Sender).ClassName+'. '),'ok',16);
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  EditMk:=not EditMk;
  if EditMk then SpeedButton2.Font.Color:=255
  else SpeedButton2.Font.Color:=0;
  if assigned(Veraendern) then Veraendern.Destroy;
  Veraendern := nil;
end;

end.