ListBox Problem

Intruder · Beiträge: 41 Win XP Home D 2005 PE, Delphi 2009

Ich habe eine ListBox und in der wird nach einem OpenDialog bei einem klick in eine Zeile der Pfad zu einer Datei angezeigt. Ich möchte aber dass das auch ohne Klick angezeigt wird. Wie geht das?

freak4fun · Verfasst: Fr 28.07.06 12:01

NAch welchen Kriterien wird denn der Pfad eingefügt?

_________________
"Ich werde auf GAR KEINEN Fall…!" - "Keks?" - "Okay, ich tu's."
i++; // zaehler i um 1 erhoehen

Tilo · Verfasst: Fr 28.07.06 12:03

Annahme:
Der Pfad welcher angezeigt werden soll stammt aus dem OpenDialog?
dann schreib in etwa das:

markieren

Quelltext

1:
2:

if Opendialog.Execute then
 Label.Text:=Opendialog.filename;

Achtung ich bin mir jetzt nicht sicher ob .filename korreckt ist.

ZeitGeist87 · Verfasst: Fr 28.07.06 12:03

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

if opendialog1.execute then
begin
 //Was weiß ich
 listbox1.items.add(opendialog1.filename);
end;

hoffe ist du meintest das =)

_________________
Wer Provokationen, Ironie, Sarkasmus oder Zynismus herauslesen kann soll sie ignorieren um den Inhalt meiner Beiträge ungetrübt erfassen zu können.

Intruder · Beiträge: 41 Win XP Home D 2005 PE, Delphi 2009

Einfach durch einen OpenDialog, ich poste mal den Code:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm2.Button2Click(Sender: TObject);
begin
If OpenDialog1.Execute then
AddToPlaylist(OpenDialog1.Filename);
end;

Das ist der OpenDialog-Button. Man sieht es ist ein MP3-Player

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm2.ListBox1Click(Sender: TObject);
var i : integer;
begin
  for i := 0 to listbox1.Count - 1 do
    if listbox1.Selected[i] then break;
  if fileexists(Playlist.Strings[i]) then PlayFile(Playlist.Strings[i]);
end;

Und das die ListBox.

€dit: Das mit ListBox1.Items.Add(...) geht nicht, dort wird angezeigt, dass das Maximum vom Index(0) überschritten wird

€dit2: Danke für die schnellen antowrten auch wenns noch nicht gelöst ist!

crowley · Verfasst: Fr 28.07.06 13:42

dein code ist fehleranfällig und das könnte auch schon dir ursache dafür sein, dass du deinen fehler bekommst... denn wenn kein eintrag markiert ist, ist nüscht mit listboxclick

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm2.ListBox1Click(Sender: TObject);  
var i : integer;  
begin  
  for i := 0 to listbox1.Count - 1 do  
    if listbox1.Selected[i] then break;  
  if fileexists(Playlist.Strings[i]) then PlayFile(Playlist.Strings[i]);  { was ist wenn nichtts selektiert ist ? dann ist i immer größer als listbox.items ... }
end;

also besser so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm2.ListBox1Click(Sender: TObject);  
var i : integer;  
begin  
  for i := 0 to listbox1.Count - 1 do  
    if listbox1.Selected[i] and fileexists(Playlist.Strings[i]) then 
      PlayFile(Playlist.Strings[i]);  
end;

Intruder · Beiträge: 41 Win XP Home D 2005 PE, Delphi 2009

Danke, aber das wollte ich gar nicht wissen, ich habe ja jetzt den Weg übe OpenDialog gefunden, ich wollte nur wissen wie ich das hinkriege, dass die anderen Pfade die nicht angeklickt sind in der ListBox auch angezeigt werden

Und hier noch eine Frage; Wie kann ich die Scrollbalken dazu bringen, dass sie in der ListBox scrollen?

Intruder · Beiträge: 41 Win XP Home D 2005 PE, Delphi 2009

Also das Problem mit den nicht angezeigten Pfaden ist immer noch nicht gelöst, weiß da wer ne Lösung?

Und wie krieg ich des hin, dass ein Scrollbalken "in" der ListBox scrollt?

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

So Richtig schlau wird man aus deinen Fragen nicht, aber vieleicht hilft das ja.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  Listbox1.Items.Add(OpenDialog1.FileName);
  SendMessage(ListBox1.Handle,WM_VSCROLL,SB_BOTTOM,0);
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme