procedure THIWin._onResize;
//var
//  i: integer;
begin
  inherited;
  Control.Invalidate;
//  for i := 0 to Control.ChildCount - 1 do
//    Control.Children[i].Invalidate;
  Sendmessage(Control.Handle, US_RESIZE, 0, 0);
end;