Rechteck verschieben

[delphicoder123]

Ich kann jetzt EIN Rechteck verschieben.
Sobald es mehrere Rechtecke sind, funktioniert es nicht mehr.
Wie schaffe ich es, dass man auch mehrere Rechtecke verschieben kann?

Delphi-Quellcode:

unit unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, rechteck;

type
  TForm1 = class(TForm)
    Button1: TButton;
    editx1: TEdit;
    edity1: TEdit;
    editx2: TEdit;
    edity2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormActivate(Sender: TObject);
  private
    { Private-Deklarationen }
    x1,x2,y1,y2,
    breite,hoehe,zustand:Integer; // Zustand (0,1)
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var
  TheRect: TRect;
begin
  x1:=strtoint(editx1.text);
  y1:=strtoint(edity1.text);
  x2:=strtoint(editx2.text);
  y2:=strtoint(edity2.text);
  breite:=x2-x1;
  hoehe:=y2-y1;
  Canvas.Rectangle(x1, y1, x2, y2);
  {Canvas.Rectangle(10, 10, 100, 100);
  Canvas.Rectangle(150, 150, 200, 200);
  Canvas.Rectangle(350, 350, 300, 300); }
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  form1.Color:=clwhite;
  {x1:=10;
  x2:=100;
  y1:=10;
  y2:=100;
  breite:=x2-x1;
  hoehe:=y2-y1; }
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   if (X >= x1) AND (x <= x2) AND
       (y >= y1) AND (y <= y2) then
           begin
            zustand:=1;
           end
      else
        zustand:=0;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if zustand=1 then
    begin
      form1.canvas.pen.Color:=clwhite;
      form1.Canvas.Rectangle(x1,y1,x2,y2);
      form1.canvas.pen.Color:=clblack;
      x1:=x;
      y1:=y;
      x2:=x+breite;
      y2:=y+hoehe;
      form1.Canvas.Rectangle(x1, y1, x2, y2);

    end;
end;

end.

[EWeiss]

Ok letzter Post..
Ich weis nicht was du da Rumdokterst ein einfaches PtInRect reicht siehe mein Beispiel oben.

Delphi-Quellcode:

function TRechteck.rechteckGetroffen(var Getroffen: BOOL): Boolean;
var
   pt: TPoint;

begin

   pt := Form1.btnRechteck.ScreenToClient(Mouse.CursorPos);
   if PtInRect(Form1.btnRechteck.ClientRect, pt) then
   begin
     Result := True;
   end;

end;

Wenn du jetzt 10 Rechtecke hast dann musst du nur bei allen prüfen ob sich deine Maus im RECT desjeweiligen Controls (Rechteck befindet)
Wie mein For.. Next verwendet sollte dir doch klar sein oder?

ganze 2 Zeilen und fertig!

gruss

[DeddyH]

Dazu müsste man sich alle erzeugten Rechtecke aber auch irgendwo merken (Liste, Array, etc.). Und Zeichenoperationen machen sich im OnPaint-Ereignis besser, sonst ist alles optisch wieder weg, sobald ein anderes Fenster sich über Form1 legt. Und nochwas: in einer Formular-Methoden auf die globale Form-Variable zuzugreifen ist eine ganz schlechte Idee, das merkt man spätestens, wenn man 2 Formulare der Klasse Form1 erzeugt.

[EWeiss]

Zitat:

auf die globale Form-Variable zuzugreifen ist eine ganz schlechte Idee

Meinst mich?
Wie willst du sonst aus der Rechteck Klasse auf den Button zugreifen der sich auf der Form1 befindet.

Delphi-Quellcode:

form1.canvas.pen.Color:=clwhite;
form1.Canvas.Rectangle(x1,y1,x2,y2);
form1.canvas.pen.Color:=clblack;

Ist natürlich schlecht.

Delphi-Quellcode:

canvas.pen.Color:=clwhite;
canvas.Rectangle(x1,y1,x2,y2);
canvas.pen.Color:=clblack;

gruss

[DeddyH]

Ich meinte zwar nicht Dich, aber das sind auch keine Formular-Methoden, gell?

[EWeiss]

Zitat von DeddyH:

Ich meinte zwar nicht Dich, aber das sind auch keine Formular-Methoden, gell?

welche
Du weist doch WIn32API

gruss

[DeddyH]

Delphi-Quellcode:

// Methode der Formularklasse TForm1
procedure TForm1.Blubb

// Methode der Klasse TRechteck
procedure TRechteck.Blubb