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;