AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

TDBGrid: unnötige Scrollbar ausblenden

Ein Thema von Laaeris · begonnen am 7. Mär 2021 · letzter Beitrag vom 7. Mär 2021
Antwort Antwort
Laaeris

Registriert seit: 10. Dez 2011
24 Beiträge
 
#1

TDBGrid: unnötige Scrollbar ausblenden

  Alt 7. Mär 2021, 13:26
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
Miniaturansicht angehängter Grafiken
tdbgrid_sinnlosescrollbar.jpg  
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
8.082 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: TDBGrid: unnötige Scrollbar ausblenden

  Alt 7. Mär 2021, 14:46
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...
Sebastian Jänicke
Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!
  Mit Zitat antworten Zitat
venice2

Registriert seit: 5. Dez 2019
Ort: Köln
695 Beiträge
 
Delphi 2010 Architect
 
#3

AW: TDBGrid: unnötige Scrollbar ausblenden

  Alt 7. Mär 2021, 15:00
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.

Geändert von venice2 ( 7. Mär 2021 um 15:25 Uhr)
  Mit Zitat antworten Zitat
mmw

Registriert seit: 10. Sep 2019
Ort: OWL
184 Beiträge
 
Delphi 10.3 Rio
 
#4

AW: TDBGrid: unnötige Scrollbar ausblenden

  Alt 7. Mär 2021, 19:39
Hallo,

mit TcyDBGrid scheint es zu functionieren.

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

gruß

Geändert von mmw ( 7. Mär 2021 um 20:38 Uhr)
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +2. Es ist jetzt 09:12 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf