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?

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

[kurtm1]

Ich würde mal drauf tippen, dass der Text immer dort bleibt, weil du den ganzen Code in einen Timer gepackt hast

[skyware]

ja der text soll auch dort bleiben.
aber wenn ich ein anderes windows fenster (z.b word) darüber schiebe, wird
der text aufs word fenster gezeichnet. das ist ja au korrekt.
wenn ich allerdings das word fenster wegnehme...soll auch der text nicht mehr
im word fenster vorhanden sein..bloss das funktioniert nicht...
wie bring ich den text nun in den "weggeschobenen" fenstern wieder weg..?

[Stanlay Hanks]

Hi. Ich denke, das hier sollte dir weiterhelfen.

Man liest sich, Stanlay

[skyware]

hi stanlay...

hab ich auch schon versucht...dann flackert der ganze screen!
es ist zum verrücktwerden..das kann doch nicht so kompliziert sein? *g*
hiiillfeeeee

[Stanlay Hanks]

Du darfst den Code nicht in ein Timerevent schreiben (Falls du das gemacht hast), sonst hast du ein andauerndes Refresh.

Man liest sich, Stanlay

[skyware]

och..aber wo soll der dann sonst hin??
er muss ja regelmässig wieder gelöscht werden...ich kann ja nicht
wissen wann ein anderen ein fenster über meinen text schiebt,
oder hab ich da was falsch verstanden...?

[Stanlay Hanks]

Naja, du musst das so sehen: Wenn du einen Timer mit kurzem Interval hast (ein paar Millisekunden), in dessen Event der gesamte Bildschirm neugezeichnet wird, ist es ja logisch, dass es flimmert Wenn du das Interval heruntersetzt, müsste es gehen.

Man liest sich, Stanlay

Edit: PS: Falsche Sparte.