Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#2

AW: Rechteck an (unter) Maus-Position malen

  Alt 29. Jun 2010, 16:05
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;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat