Repaint auf anderem Fenster

**mischer**

Hi Freaks,

kann mir jemand von euch sagen, wie ich auf einem anderen Fenster ein Repaint auslösen kann?

Ich habs damit versucht:

markieren

Code:

			procedure RefreshDesktop;

var

   Desktop : TCanvas;

begin

   Desktop := TCanvas.Create;

   try

      Desktop.Handle := FSHandle;  // FSHandle = Handle des zu aktualsierenden Fensters

      Desktop.Refresh;

   finally

      Desktop.Free;

   end;

end;

Das ist ihm allerdings vollkommen Suppe.

Ich hab nämlich das Problem, das beim ziehen meines Fensters über ein Accessfenster teilweise die Ränder stehenbleiben, was sehr unschön aussieht. (Das Problem tritt speziell auf langsamen Rechnern auf und hat nichts direkt mit meinem Programm zu tun. Wenn ich Notepad oder Paint drüberziehe passiert es auch.)
Deshalb möchte ich beim loslassen meines Fensters das Accessfenster neu zeichnen lassen.

Danke im Voraus für Eure Hilfe!

MfG mischer

Repaint auf anderem Fenster

Repaint auf anderem Fenster

Forumregeln