Hi Freaks,
kann mir jemand von euch sagen, wie ich auf einem anderen Fenster ein Repaint auslösen kann?
Ich habs damit versucht:
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