TTreeView, Borderstyle geändert, Scrollbars verschwinden

[sECuRE]

Hi,

ich habe folgendes nerviges Problem in Delphi 7:
Wenn man ein TTreeView benutzt, so viele Items hinzufügt, dass eine vertikale Scrollbar angezeigt werden muss, folgende Eigenschaften einstellt:

Delphi-Quellcode:

with TreeView1 do begin
 Bevelinner:=bvNone;
 BevelKind:=bkTile;
 BevelOuter:=bvLowered;
 BorderStyle:=bsNone;
end;

verschwinden die Scrollbars beim (teilweisen?) Neuzeichnen des TreeViews. Das kann man einfach ausprobieren, indem man zB das Codefenster von Delphi über das Fenster mit dem TreeView schiebt und dann, ohne den Mausbutton loszulassen, wieder wegschiebt. Die Scrollbars werden auch nicht neugezeichnet, wenn man dann das Fenster zum Aktiven macht.

Weiß einer eine Lösung für dieses Problem, außer diesen BorderStyle nicht zu verwenden?

Danke & cu

[sECuRE]

Hi,

hat keiner 'ne Lösung? Oder zumindest ein Tipp, ob das an Delphi oder Windows selber liegt?

cu

[sECuRE]

Hi,

könnte ich nicht via Windows-API diesen Style selbst hervorrufen? Oder hat sonst jemand 'ne Idee, wie ich an das Problem herangehen sollte?

cu

[Waldteufel]

Hi.

*** push ***
Ich habe das Problem sogar ohne bsNone.

[Waldteufel]

Hi.

Hab ne Lösung gefunden:

Delphi-Quellcode:

procedure TForm1.Aktualisieren;
begin
  ShowScrollBar(TreeView1.Handle, SB_VERT, false);
  { Aktualisieren... }
  ShowScrollBar(TreeView1.Handle, SB_VERT, true);
end;

Hat (bei mir zumindest) geholfen.

[sECuRE]

Hi,

das ist leider nur suboptimal. Wenn ich das benutze, flackern die Scrollbars bei mir unaufhörlich (im FormPaint-Event. Oder sollte das woanders hin? Bei mir tritt das ja auf, wenn man ein anderes Fenster über meine Anwendung schiebt).

cu

[Waldteufel]

Hi.

Der Code sollte eigentlich vor bzw. hinter die Stelle, an der du den Inhalt der TreeView änderst, aber ich fürchte, es nützt doch nichts, da bei dir ja der Fehler erst auftritt wenn du ein Fenster über die Scrollbox schiebst. Ich schätze mal, es liegt am bsNone... //edit2: Die TreeView scheint mit bsNone nicht zurecht zu kommen.

//edit: Hatte ComboBox statt TreeView geschrieben

//edit3: Ich muss mich korrigieren. Wenn BevelKind = bkNone ist, tritt der Fehler nicht auf!

[Lannes]

Hallo,

ich glaube dort wurde das Problem gelöst
Die Entwickler-Ecke : [TTreeView, VCL Win32] Scrollbar verschwindet auf wundersame weise

[sECuRE]

Hi,

tjo, dort wurde es wohl gelöst - bei mir bringt eine Veränderung von borderWidth überhaupt nichts. Sowohl bei 1, als auch bei 0 (wie ich es vorher auch schon hatte) tritt das Problem auf.

Danke trotzdem fürs Posten
cu