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]