Wie bei TScrollBox den TScrollBar vergrößern?

[omata]

Verändern der Windowseinstellung geht so...

Delphi-Quellcode:

var
  oldMetrics: NONCLIENTMETRICS;

function SetScrollbarWidth(NewWidth: Integer): Boolean;
var currentMetrics: NONCLIENTMETRICS;
begin
  Result:=false;
  oldMetrics.cbSize := SizeOf(oldMetrics);
  if SystemParametersInfo(SPI_GETNONCLIENTMETRICS, SizeOf(oldMetrics),
                          @oldMetrics, SPIF_SENDCHANGE) then
  begin
    currentMetrics:=oldMetrics;
    currentMetrics.iScrollWidth:=NewWidth;
    Result :=SystemParametersInfo(
      SPI_SETNONCLIENTMETRICS, SizeOf(currentMetrics),
      @currentMetrics, SPIF_SENDCHANGE
    );
  end;
end;

function RestoreScrollbarWidth: Boolean;
var currentMetrics: NONCLIENTMETRICS;
begin
  Result :=SystemParametersInfo(
    SPI_SETNONCLIENTMETRICS, SizeOf(oldMetrics), @oldMetrics, SPIF_SENDCHANGE
  );
end;