Scrollbar im stringgrid immer sichtbar machen

[slang]

Hi!

War selbst auf der Suche und habe grade die Lösung gefunden.
Im OnDrawCell Ereignis kann man mit folgendem Code die Scrollbar erzwingen:


ShowScrollBar(StringGrid1.Handle, SB_VERT, True); müsste dann also zusammen so aussehen:

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  ShowScrollBar(StringGrid1.Handle, SB_VERT, True);  // Vertikale Scrollbar
  ShowScrollBar(StringGrid1.Handle, SB_HORZ, True);  // Horizontale Scrollbar
end;

Allerdings sieht die Scrollbar dann benutzbar aus, obwohl man sie nicht benutzen kann.
Wie man sie auf "disabled" oderso setzen kann, weiß ich leider nicht.

MfG

Slang

[Edit]
Mit dem Befehl
  EnableScrollBar(Stringgrid1.Handle, SB_BOTH, ESB_DISABLE_BOTH); kann man die Scrollbar doch disablen.
Weiteres dazu gibts hier: MSDN

Diese Funktion kann man aber nicht in das OnDrawCell Ereignis einfügen, da die Scrollbar dann immer disabled ist!
[/Edit]