var
prostokat: TRect;
begin
Canvas.Handle:=GetWindowDC(GetDesktopWindow);
prostokat:=Rect(x,y,x+20,y+20); {x i y to współrzędne kursora myszy}
Canvas.Brush.Color:=clLime;
// TU MUSI BYĆ FUNKCJA USUWAJĄCA POPRZEDNI PROSTOKĄT
Canvas.FrameRect(prostokat);
end;
Ta bardziej istotna część programu. Chodzi mi tak jak napisałem w komentarzu w programie o funkcje która będzie czyścić Canvas. (Czyścić nie zamalowywać na jakiś kolor). W takiej formie program zaznacza pozycje kursora poprawnie lecz pozostawia za sobą ciąg kwadratów.
Będę bardzo wdzięczny za pomoc :d