Вопрос по ACL (API Controls Library)

[dangeonkeeper]

Есть код:

program Project1;

uses
  Windows, Messages, Acl, AclUtils, SClasses;

type
  TWnd1 = class(TWinControl)
    Btn1 : TButton;
    Btn2 : TButton;
    procedure WndCreate(Sender: TObject);
  public
  end;

var
  Wnd1   : TWnd1;
  s1,s2  : shortstring;
  trig   : boolean;

procedure TWnd1.WndCreate(Sender: TObject);
begin
  AutoStop := true; // exit from process by closing this window
  Btn1 := NewButton(Self,
                   'Add string',
                   0,
                   (Self.ClientWidth - 150) div 2,190,150,25,
                   clYellow,
                   clBlack);
  Btn2 := NewButton(Self,
                   'Btn2',
                   0,
                   (Self.ClientWidth - 50) div 2,90,150,25,
                   clBlue,
                   clBlack);
end;


begin
  { TODO -oUser -cConsole Main : Insert code here }
  trig := false;
  Wnd1 := TWnd1.Create(nil);
  with Wnd1 do
  begin
    //Style := ws_Border or ws_Caption or ws_SysMenu;
    Style :=WS_OVERLAPPEDWINDOW;
    Width := 350;
    Height := 300;
    Left := (GetSystemMetrics(SM_CXSCREEN) - Width) div 2;
    Top := (GetSystemMetrics(SM_CYSCREEN) - Height) div 2;
    Color := RGB($33,$99,$FF);
    Caption := 'Win32 API Programming Sample';
    OnCreate := WndCreate;
  end;
  Wnd1.CreateWnd;
  Wnd1.Visible := true;
  Wnd1.ShowModal;
  Wnd1.Free;
end.

При изменении размеров главного окна происходит очень частое обновление/перерисовка кнопок (подозреваю что и др контролов тоже).
По-умолчанию стиль всех окон bk_Opaque.

Вопрос: как уменьшить мерцание/перерисовку дочерних контролов???

[counter]

задайте паренту стиль WS_CLIPCHILDREN

[dangeonkeeper]

Сообщение от counter

задайте паренту стиль WS_CLIPCHILDREN

Помогло. Спасибо.



Есть еще вопросик:
создаю наследника от TLabel (который от TStdControl) В НОВОМ ЮНИТЕ.
В Uses прописываю Acl и AclUtils
однако в моем наследнике не видны свойства TWinControl !!!!!!!!!!!
Однако если создавать наследника в том же юните acl.pas то все видно!!!!!!!
Как от этого уйти?????
Хочу создать наследника в новом юните.