Hallo zusammen,
ich verwende in meinem Programm mehrere TDBGrids. Die Scrollbar ist auch meist sinnvoll, nur in einem Beipiel ist sie quatsch, aber leider nicht wegzukriegen.
Ich kann zwar über:
Delphi-Quellcode:
type
TDBGrid = class(DBGrids.TDBGrid)
private
procedure UpdateScrollBar; override;
end;
und dann
Delphi-Quellcode:
procedure TDBGrid.UpdateScrollBar;
begin
// in this procedure the scroll bar is being shown or hidden
// depending on data fetched; and since we never want to see
// it, do just nothing at all here
end;
die Bar wegkriegen, aber dann bei allen.
(Referenz
https://stackoverflow.com/questions/...even-on-resize).
Insofern habe ich überlegt, dass ich über eine eigene Klasse nur für dieses eine Grid die Bar override, aber irgendwie klappt das auch nicht.
Delphi-Quellcode:
type // Für das Unsichtbarmachen der Scrollbar in der Ligatabelle
TDBGridLigatabelle = class(DBGrids.TDBGrid)
private
procedure UpdateScrollBar; override;
07.03.2021: Leider geht das einfache Umdeklarieren des Ligatebellen DBGrids zu einer abgeleiteten Klasse nicht,
Die Scrollbar bleibt bestehen.
end;
Wo sind meine Gedankenfehler?
Viele Grüße,
David