Maus auf ein Ereignis reagieren lassen

[bitsetter]

Und wenn das Programm beendet wird, sollte man den Speicher auch wieder frei geben:

Delphi-Quellcode:

procedure TForm1.FormDestroy(Sender: TObject);
begin
 if DesktopDC > 0 then
   ReleaseDC(0, DesktopDC);
end;