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?
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
