auf dem Bildschirm zeichnen

[StefanDP]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  Malen: TCanvas;
begin
  Malen := TCanvas.Create;
  Malen.Handle := GetDC(0);
  Malen.LineTo(100,100);
end;

Malen ist jetzt dein Canvas vom bildschirm