Scrollbar im stringgrid immer sichtbar machen

[slang]

Hi static_cast!

Schön, dass ich mit meinem ersten Beitrag direkt helfen konnte

Man kann die Funktion EnableScrollbar aber doch ins OnDrawCell Ereignis packen.
Man sollte nur prüfen, ob die Anzahl der Reihen * Höhe der Reihen kleiner ist als die Höhe des Stringgrids. Müsste also dann so aussehen:

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  ShowScrollBar(StringGrid1.Handle, SB_VERT, True);
  if StringGrid1.Height > StringGrid1.DefaultRowHeight * StringGrid1.RowCount then
    EnableScrollBar(StringGrid1.handle,SB_VERT,ESB_DISABLE_BOTH)
  else
    EnableScrollBar(StringGrid1.handle,SB_VERT,ESB_ENABLE_BOTH);
end;

MfG Slang