改變元件的視窗式樣

CreateParams方法用來設定元件的視窗式樣及其它必須傳遞至CreateWindowEx API的參數。要改變元件的視窗式樣，例如增加或拿掉元件的垂直卷軸只要改寫CreateParams方法：

procedure TMyControl.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
if IWantAScrollBar then
Params.Style := Params.Style or WS_VSCROLL
else
Params.Style := Params.Style and not WS_VSCROLL;
end