TDBGrid: unnötige Scrollbar ausblenden

[Laaeris]

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

[jaenicke]

Erstelle doch eine eigene echte Komponente und leg die auch auf das Formular.

Ansonsten musst du TDBGridLigatabelle nur zur Laufzeit selbst erstellen statt auf das Formular zu legen.

Eine weitere Möglichkeit ist, dass du UpdateScrollBar abhängig von der Eigenschaft Tag durchlässt oder eben nicht. Sprich bei der gewünschten Tabelle setzt du Tag z.B. auf 1 und unterdrückst in UpdateScrollBar nur dann das inherited.

Alles andere (Unitnamen vor dem Klassennamen, gleichnamige Klassen in mehreren Units, ...) wären Tricks, die man später nur selbst nicht mehr versteht, wenn man sich nicht mehr dran erinnert...

[venice2]

Er verwendet wohl Styles.

Solange wie dort WS_HSCROLL und WS_VSCROLL gefunden wird werden sie überzeichnet.
In wie weit es sinnvoll ist die ScrollBar zu entfernen mag mal dahingestellt sein.
Willst du also etwas an den Controls ändern prüfe das verhalten der Styles und verändere hier entsprechend die Einstellungen btw. hacke dich dort ein.
Die letzte Instanz die auf das Control zugreift sind dann nun mal die Styles.

Zitat:

Wo sind meine Gedankenfehler?

Deaktiviere mal die Styles und versuche es dann nochmal.

[mmw]

Hallo,

mit TcyDBGrid scheint es zu functionieren.

https://sourceforge.net/projects/tcycomponents/

gruß