Screen-Canvas nur über form refreshen

[bitsetter]

Hi,

und wenn du nur das Formular neuzeichnest, geht es dann?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Rect: TRect;
begin
  Rect:= self.ClientRect;
  invalidateRect(Form1.Handle, @Rect,true);
end;

EDIT:

Delphi-Quellcode:

var
  loop : integer;
begin
  //With Form1 do
  for loop:= 0 to Pred(ControlCount) do
    if Components[loop] is TWinControl then
       TWinControl(Components[loop]).Invalidate;
  Invalidate;