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

Ich mach das so:

markieren

Delphi-Quellcode:

procedure RepaintWnd(Window: hWnd);
begin
  InvalidateRect(Window, nil, True);
  UpdateWindow(Window);
  RedrawWindow(Window, nil, 0, RDW_FRAME or RDW_INVALIDATE or RDW_UPDATENOW or RDW_ALLCHILDREN);
end;

DANKE! Funktioniert einwandfrei

MfG mischer

auch wenn das ein bisschen zu spät istdeinFormName ist der Formname des Forms, das gerepainted werden soll

markieren

Code:

deinFormName.Repaint;

Müsste eigentlich funtionieren.

Oder wolltest du ein Form, das nicht zu deinem Projekt gehört, repainten?

Zitat von vlees91:

Oder wolltest du ein Form, das nicht zu deinem Projekt gehört, repainten?

Exakt! Aber trotzdem vielen Dank für deine Mühe

MfG mischer