Rechteck mit Mouse ziehen

[Zacherl]

Versuchs mal so:

Delphi-Quellcode:

var
  Form1: TForm1;
  vonx, vony: integer;

implementation

{$R *.DFM}

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
form1.canvas.Rectangle(vonx, vony, x, y);
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
vonx := x;
vony := y;
end;