AGB  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

ScrollBox mit permanenter vertikaler Scrollbar

Ein Thema von hoika · begonnen am 7. Dez 2017
Antwort Antwort
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
5.955 Beiträge
 
Delphi XE4 Professional
 
#1

ScrollBox mit permanenter vertikaler Scrollbar

  Alt 7. Dez 2017, 08:46
Hallo,
das Thema ist wohl so alt wie Delphi selbst ...

Der unten stehende Code funktioniert, solange die Scrollbar nicht dynamisch erzeugt wird.
Packe ich den FormCreate-Code mit ins FormActivate (oder FormShow), klappt es nicht.
Das liegt wohl daran, dass das eigentliche Window-Handle dann schon erzeugt ist.

Was kann ich tun?

PS: Eine abgeleitete Klasse will ich nicht verwenden.


Delphi-Quellcode:
procedure TForm115.FormActivate(Sender: TObject);
begin
  ShowScrollBar(ScrollBox1.Handle, SB_VERT, True);
  ShowScrollBar(ScrollBox1.Handle, SB_HORZ, False);
end;

procedure TForm115.FormCreate(Sender: TObject);
var
  iStyle: Integer;
begin
  iStyle:=GetWindowLong(ScrollBox1.Handle,GWL_STYLE);
  SetWindowLong(ScrollBox1.Handle,GWL_STYLE,iStyle or WS_HSCROLL or WS_VSCROLL);

  ScrollBox1.VertScrollBar.Visible := True;
  ScrollBox1.HorzScrollBar.Visible := True;

  ScrollBox1.AutoScroll := True;
end;
Heiko

Geändert von hoika ( 7. Dez 2017 um 08:49 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:

Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:01 Uhr.
Powered by vBulletin® Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2017 by Daniel R. Wolf