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