TMyListBox = class(TCustomListBox)
  private
    { Private declarations }
  protected
    { Protected declarations }
    procedure CreateParams(var Params: TCreateParams); override;
  public
    { Public declarations }
    procedure CreateWnd; override;
  published
    { Published declarations }
  end;    implementation    procedure TFilesListBox.CreateWnd;
begin
  inherited ;    //  if Not(Style in [lbVirtual, lbVirtualOwnerDraw]) then
//   Style := lbVirtual ;
end;    procedure TFilesListBox.CreateParams(var Params: TCreateParams);
const
  LBS_DISABLENOSCROLL = $1000 ;
begin
  inherited  ;
  Params.Style := Params.Style AND NOT WS_HSCROLL ;
  Params.Style := Params.Style or LBS_DISABLENOSCROLL ;
end;

我用以上的程式碼可以建造一個新元件，但當我加上

  if Not(Style in [lbVirtual, lbVirtualOwnerDraw]) then
   Style := lbVirtual ;
 

在 IDE 下可以見到這個元件，但執行時便沒有，結束程式時更會出現 Control has no parent 的錯誤訊息，我知道改變 CustomListBox 的 style 會執行 RecreateWnd ，如果單靠 CreateParams 也可以改變它成為 Virtual style ， 但 CustomListBox 內的 FStyle property 沒有改變，一些相關的程序亦使用不 到，如果我要一開始便改變這個 Style 的值，那應該放到那一個程序上才可 以？ 離線閱讀程式