text auf desktop... refresh?

**skyware**

hallo zusammen,

ich möchte gerne einen text auf den windows desktop schreiben.
zuerst hab ich natürlich im forum gesucht ob dieses problem schon jemand lösen konnte.
diverse threads wurden diesem thema auch schon gewidmet.
das schreiben auf den desktop funktioniert jetzt auch wunderbar dank dem gefundenen source code.
leider hab ich in keinem der threads eine lösung gefunden wie der gezeichnete
text wieder gelöscht werden kann?
wenn ich ein fenster über den text schiebe übernimmt der diesen text, aber löscht ihn
beim wegschieben nicht mehr weg...
hat hier jemand eine lösung?

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Timer1Timer(Sender: TObject);

var

  Dc: HDC;

  ACanvas: TCanvas;

begin

  Dc := GetWindowDC(GetDesktopWindow) ;

  ACanvas := TCanvas.Create;

  try

    ACanvas.Brush.Style := bsClear;

    ACanvas.Handle := Dc;

    BeginPath(ACanvas.Handle) ;

    ACanvas.Font.Color := clRed;

    ACanvas.Font.Name := 'Tahoma';

    ACanvas.Font.Size := 30;

    EndPath(ACanvas.Handle) ;

    ACanvas.TextOut(0, 0, 'das ist ein test');

  finally

    ReleaseDC(Handle, ACanvas.Handle) ;

    ACanvas.Free;

  end;

end;

vielen dank im voraus

text auf desktop... refresh?

text auf desktop... refresh?

Forumregeln