怎样让滚动条永远可见 无须滚动时呈Disable状态

Question

如题

Answer 1

修改窗口风格，让其具有 WS_HSCROLL | WS_VSCROLL

Answer 2

当 (si.nPage == si.nMax - si.nMin + 1) 时，滚动条就消失了。
此时希望滚动条继续可见怎么办

Answer 3

Inno 安装程序制作例程：; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!;#pragma option -v+
;#pragma verboselevel 9#define Trial
;Trial－试用版
;Full－正式版#ifdef Full
#define AppVersion GetFileVersion(AddBackslash(SourcePath) +"FxTrade.exe")
#endif
#ifdef Trial
#define AppVersion GetFileVersion(AddBackslash(SourcePath) + "FxTrade_Trial.exe")
#endif
#define Homepage "http://www.aheader.com"
#define Supportpage "http://www.aheader.com/support/support.html"
#define Orderpage "http://www.aheader.com/buy/flash-slideshow-buy.html"
[Setup]
#ifdef Full
AppName=Aheader Forex Trade Platform
AppVerName=Aheader Forex Trade Platform ({#AppVersion})
#endif
#ifdef Trial
AppName=Aheader Forex Trade Platform
AppVerName=Aheader Forex Trade Platform ({#AppVersion}) Trial Version
#endif
AppVersion={#AppVersion}
AppMutex=FxTrade
AppPublisher=Aheader Software Co.,Ltd.
AppPublisherURL={#Homepage}
AppSupportURL={#Supportpage}
;AppUpdatesURL=http://www.aheader.com
DefaultDirName={pf}\Aheader\Forex Trade Platform
DefaultGroupName=Aheader\Forex Trade Platform
DisableProgramGroupPage=yes
LicenseFile=License.txt
VersionInfoVersion={#AppVersion}
Compression=lzma
WizardImageFile=installation_Left.bmp
WizardSmallImageFile=Icon.bmp
SetupIconFile=installation.ico
SolidCompression=yes
#ifdef Full
OutputBaseFilename=FxTrade
#endif
#ifdef Trial
OutputBaseFilename=FxTrade_trial
#endif
ChangesAssociations =yes[Languages]
Name: "eng"; MessagesFile: "compiler:Default.isl"   [Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}";
Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}";   [Files]
  ;Exe文件
#ifdef Full
Source: "FxTrade.exe"; DestDir: "{app}"; DestName: "FxTrade.exe"; Flags: ignoreversion
#endif
#ifdef Trial
Source: "FxTrade_Trial.exe"; DestDir: "{app}"; DestName: "FxTrade.exe"; Flags: ignoreversion
#endifSource: "Player.exe"; DestDir: "{app}"; Flags: ignoreversion ;Com
Source: "Flex.ocx"; DestDir: "{sys}"; Flags: onlyifdoesntexist uninsneveruninstall ;Runtime Library
Source: "msvcp71.dll"; DestDir: "{sys}"; Flags: onlyifdoesntexist uninsneveruninstall
Source: "msvcr71.dll"; DestDir: "{sys}"; Flags: onlyifdoesntexist uninsneveruninstall ;GDI
Source: "GdiPlus.dll"; DestDir: "{app}"; Flags: ignoreversion ;普通Dll
Source: "NetAgent.dll"; DestDir: "{app}"; Flags: ignoreversion
Source: "MultiLanguage.dll"; DestDir: "{app}"; Flags: ignoreversion
;插件
Source: "Plugins\*"; DestDir: "{app}\Plugins"; Flags: ignoreversion ;资源
Source: "res\*"; DestDir: "{app}\res"; Flags: ignoreversion ;语言数据
Source: "LanguageChineseSimple.dat"; DestDir: "{app}"; Flags: ignoreversion
Source: "LanguageBig5.dat"; DestDir: "{app}"; Flags: ignoreversion
Source: "LanguageEnglish.dat"; DestDir: "{app}"; Flags: ignoreversion ;help file
Source: "Help.chm"; DestDir: "{app}"; Flags: ignoreversion ; NOTE: Don't use "Flags: ignoreversion" on any shared system files [INI]
Filename: {app}\FxTrade.url; Section: InternetShortcut; Key: URL; String: {#HomePage}
Filename: {app}\FxTradeOrder.url; Section: InternetShortcut; Key: URL; String: {#OrderPage} [Icons]
Name: "{group}\Forex Trade Platform"; Filename: "{app}\FxTrade.exe"
Name: "{group}\Forex Trade Platform on the Web"; Filename: "{app}\FxTrade.url"
Name: "{group}\Order Forex Trade Platform"; Filename: "{app}\FxTradeOrder.url"
Name: "{group}\How to use Forex Trade Platform"; Filename: "{app}\Help.chm"
Name: "{group}\Uninstall Forex Trade Platform"; Filename: {uninstallexe}
Name: "{userdesktop}\Aheader Forex Trade Platform"; Filename: "{app}\FxTrade.exe"; Tasks: desktopicon
Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\Aheader Forex Trade Platform"; Filename: "{app}\FxTrade.exe"; Tasks: quicklaunchicon   [Registry]
Root: HKCR; Subkey: .afx; ValueType: string; ValueName: ; ValueData: "FxTrade.ProjectFile"; Flags: uninsdeletekey
Root: HKCR; Subkey: FxTrade.ProjectFile; ValueType: string; ValueName: ; ValueData: FxTrade Project File; Flags: uninsdeletekey
Root: HKCR; Subkey: FxTrade.ProjectFile\DefaultIcon; ValueType: string; ValueName: ; ValueData: {app}\FxTrade.exe,1; Flags: uninsdeletekey
Root: HKCR; Subkey: FxTrade.ProjectFile\shell\open\command; ValueType: string; ValueName: ; ValueData: """{app}\FxTrade.exe"" ""%1"""; Flags: uninsdeletekey   [Run]
Filename: {sys}\regsvr32.exe; WorkingDir: {sys}; Parameters:  /s Flex.ocx
  ;Filename: {sys}\regsvr32.exe; WorkingDir: {sys}; Parameters:  /s Renderer.dllFilename: "{app}\FxTrade.exe"; Description: "{cm:LaunchProgram,Forex Trade Platform}"; Flags: nowait postinstall skipifsilent   [UninstallDelete]
Type: filesandordirs; Name: "{app}"   [code]
  procedure DeinitializeUninstall();
  var
ErrorCode: Integer;
  begin
  ShellExec('open', 'IEXPLORE.EXE', 'http://www.aheader.com/other/survey.html', '', SW_SHOW, ewNoWait, ErrorCode);
  end;   function CheckWin2000(): Boolean;
  begin
Result := UsingWinNT;
  end;   function CheckWin98(): Boolean;
  begin
Result := Not UsingWinNT;
  end;