改变元件的视窗式样

　　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