Hallo Frank,
hier ist noch eine Möglichkeit:
Delphi-Quellcode:
procedure InvalidateControl (aControl: TWinControl);
const
FLAGS = RDW_ERASE or RDW_FRAME or RDW_INVALIDATE or RDW_UPDATENOW or RDW_ALLCHILDREN;
begin
RedrawWindow(aControl.Handle, nil, 0, FLAGS);
end;
Gruß Hawkeye