Rechteck an (unter) Maus-Position malen

[Bummi]

ohne Zwischenspeicherung und wiederherstellung:

Delphi-Quellcode:

procedure TForm5.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  invalidate;
end;

procedure TForm5.FormPaint(Sender: TObject);
var
  p:Tpoint;
begin

   p := ScreenToClient(Mouse.CursorPos);
  Canvas.rectangle(p.X - 5, p.Y - 5, p.X + 5, p.Y + 5);
end;