listbox und scrollbar

neffets · Beiträge: 29

Ich trage mit
listbox.items.add(text) laufend einen Text aus einer Rechenoperation in eine Listbox.
Nach beenden der Procedur wird der Text auch angezeigt, am Rand erscheint der Scrollbar, der sich aber nicht bewegen läßt, sodaß man sich den Text den folgenden Seiten nicht ansehen kann.
Mit dieser Vorschau hat der User die Möglichkeit die Ergebnisse vor einem ggf. Druckauftrag sich anzuschauen.
Nur, wie gesagtr, der Srcollbar kann nicht bewegt werden.
Hat jemand eine Idee?

Gruß
Neffets

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

Wie schon in dem anderen Thread
www.delphipraxis.net...x+und+scrollbar.html
ohne etwas Quelltext ist das nur ein Raten.

_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)

neffets · Beiträge: 29

Blackheart666 hat folgendes geschrieben:

Wie schon in dem anderen Thread
www.delphipraxis.net...x+und+scrollbar.html
ohne etwas Quelltext ist das nur ein Raten.

Du hast recht. Im Anhang ist die entsprechende Procedure angefügt, die ich zur Findung einer Lösung nicht gekürzt habe.
Ich bin gespannt, ob Sie die Ursache ermitteln können.

Beste Grüße
Neffets

Einloggen, um Attachments anzusehen!

neffets · Beiträge: 29

ich habe die Procedure in die einfachste Form umgeschrieben

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure Ausgabe;
var i:Integer;
begin

for I:=1 to 200 do begin
     text:='Test';
     form2.listbox1.items.add(Text);
     end;

end;

Auch hier wird die Listbox gefüllt aber es ist nicht möglich den scrollbar zu bewegen.
Auch wenn in dem Programm weitergearbeitet wird bleibt die Listbox weiterhin sichtbar.

Moderiert von raziel: Delphi-Tags hinzugefügt

Lannes · Verfasst: So 13.05.07 09:36

Hallo,

dieser CodeSnipsel ist so ok und wird das Problem auch nicht verursachen.

Wie sieht den der Aufruf der Prozedur Ausgabe aus, ist die Listbox dynamisch erzeugt?

Mit dem Code der Prozedur Ausgabe kann man nicht so viel anfangen, denn darin werden vieles uns Unbekanntes angesprochen. Du musst schon etwas mehr Informationen liefern, damit man helfen kann.

Hab den Code aus der ListBox.txt kurz überflogen, dabei ist mir folgendes aufgefallen:

markieren

Delphi-Quelltext

1:	for i:=0 to form2.listbox1.Items.count-1 do form2.listbox1.items.clear;

listbox.items.clear; löscht alle Items in der Listbox, man muss sie nicht x-mal aufrufen.

:gruebel:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

for i:=1 to anzelemwahl do 
  begin
  for j:=1 to anzprob do 
    begin
    //Reset öffnet eine bereits vorhandene Datei
    reset(probkorrdatei);//in jeder Schleife erneut öffnen
    //...
    //...
    //...
    //...
    //...
    end;{for j}
  end;{for i}
closefile(probkorrdatei);//1-mal wird geschlossen

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

neffets · Beiträge: 29

hallo und danke.
das Problem ist eingekreist.
Die Listbox befindet sich innerhalb eines pagecontrol_feldes.
Obwohl das entsperechede Feld auf activepage gesetzt ist und listbox.visible=true läßt sich nicht scrollen.
Verschiebe ich die listbox außerhalb des pagecontrolfeldes ist alles ok.

gruß

Lannes · Verfasst: Mo 14.05.07 21:29

Hallo,

arbeitest du mit BeginUpdate und EndUpdate? Irgendwo EndUpdate vergessen?
Oder/und überprüf alle Parentcontrols der Listbox auf den Status der Enabled-Eigenschaft. Einfach im OI die ListBox markieren, durch betätigen der ESC-Taste kannst Du gezielt nacheinander die Parentelemente markieren und Enabled im OI prüfen.

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme