Selecting multiple objects

[mdomeyko2]

In run time, how can I draw that box line for selecting multiple objects for moving/resizing, etc..

Does anybody have that code? need urgent

[john123]

Hi, you can use follow Code:

Code: Select all

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
    Flag: Boolean;
    StartPoint, PrvPoint: TPoint;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Flag:= False;
  Canvas.Brush.Style:= bsClear;
  Canvas.Pen.Mode:= pmNotXor;
  Canvas.Pen.Style:= psDot;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  If Button = mbLeft then
  begin
    Flag:= True;
    StartPoint.X:= X;
    StartPoint.Y:= Y;
    PrvPoint.X:= X;
    PrvPoint.Y:= Y;
  end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  If Flag then
  begin
    Canvas.Rectangle(StartPoint.X, StartPoint.Y, PrvPoint.X, PrvPoint.Y);
    Canvas.Rectangle(StartPoint.X, StartPoint.Y, X, Y);
    PrvPoint.X:= X;
    PrvPoint.Y:= Y;
  end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
    Flag:= False;
end;

end.


[mdomeyko2]

Thanks Kambiz, your the best!

Now my headache is trying to select a group of objects, move them around, align them, change their properties (size, color,...), put a text in caption, etc...
Do you have anything like that?

Canguro

[john123]

Did you mean: John123 or Kambiz?

[Kambiz]

john123, seems mdomeyko2 was so happy about your code that didn't look who has provided it.

[mdomeyko2]

Sorry John123. I received the email from Lambiz and in fact, I was very hoping happy, so I assumed wrong.. but ALL you guys are great!