AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein GUI-Design mit VCL / FireMonkey / Common Controls Delphi TScrollbox erkennt Aktualisierung im Clientbereich nicht
Thema durchsuchen
Ansicht
Themen-Optionen

TScrollbox erkennt Aktualisierung im Clientbereich nicht

Ein Thema von berens · begonnen am 17. Okt 2006 · letzter Beitrag vom 18. Okt 2006
 
TStringlist

Registriert seit: 1. Dez 2003
360 Beiträge
 
Turbo Delphi für Win32
 
#4

Re: TScrollbox erkennt Aktualisierung im Clientbereich nicht

  Alt 18. Okt 2006, 07:36
Zitat von berens:
Nun bleibt nur noch die Frage, ob es nicht doch irgendwie möglich ist, "Range" automatisch neu berechnen zu lassen. Weil ich wollte jetzt nicht immer alle Komponenten per Hand durchzählen um dem "untersten" Punkt zu ermitteln, der dann (abzüglich öhm. Scrollbox.Height (?)) die Range ist...
...in einer jeden solchen Situation wäre dann aber immer wieder nur ein Aufruf von z.B. folgender Procedure nötig:

Delphi-Quellcode:
procedure getScrollBoxRange(AScrollBox : TScrollBox);
var I, RangeMin : integer;
begin
  RangeMin := AScrollBox.ClientHeight;
  with AScrollBox do
    for I := 0 to ControlCount-1 do
      if (Controls[I] is TWinControl) then
        with Controls[I] as TWinControl do
          if Top + Height > RangeMin then
            RangeMin := Top + Height;
  AScrollBox.VertScrollBar.Range := RangeMin +10; // +10 = SpacePuffer
end;

edit: Schönheitskorrektur im Code
MfG (& Thx ggf.)
  Mit Zitat antworten Zitat
 


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 +1. Es ist jetzt 01:05 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz