Farbe unter der Maus unter .net

[richard_boderich]

hi staenlay,

weis nich ob das bei dir funzt, aber
ich hab da mal was geschrieben um auf desktop zu zeichen guck dir dat mal an.
bei mir funzt folgender code (delphi 7)

Delphi-Quellcode:

procedure TForm1.FormClick(Sender: TObject);
var
   cool: HDC;
   i:integer;
begin
cool:=getDC(0);
for i:=1 to 20000 do
begin
LineTo(cool,random(1000),random(700));
end;
ReleaseDC(0,cool);
end;