Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Andy-h,
6. Okt 2007
Hatte den fehler garnich an der stelle vermutet
habe selber noch was geändert so läufts:
procedure TForm4.MediaPlayer1Notify(Sender: TObject);
begin
if mediaplayer1.Position = mediaplayer1.Length then begin
// position = gesamtlänge, bedeutet dass das lied beendet wurde
Listbox1.Selected := false; // das gerade gespielte lied de-selektieren
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Andy-h,
6. Okt 2007
Mir ist doch noch was aufgefallen:
mit dem alten code ist er immer ins nächste Lied gesprungen und hat es abgespielt
jetzt bleibt er einfach am ende des liedes stehen
was muss ich machen?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Andy-h,
6. Okt 2007
Danke für die Hilfe
Es geht jetzt
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Andy-h,
6. Okt 2007
Wie müsste das dan aussehen?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Andy-h,
6. Okt 2007
ja das soll gespiel werden
kommt immer noch der fehler:
Im Projekt MP.exe ist der Klasse EStringListError mit der meldung "Listindex überschreitet das
Maximum (0)" aufgetreten.
wenn ich die Lieder rein ziehe gehen alle codes nur über öffnen nicht.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Andy-h,
6. Okt 2007
Also es geht mit beiden varianten nicht :cry:
Wo im code auf 1 stellen?
das drag und drop sieht so aus:
Procedure TForm4.WMDropFiles (Var aMsg: tMessage);
Var
Idx, Size, FileCount: Integer;
Filename: pChar;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Andy-h,
6. Okt 2007
Hier der Code zum Abspielen:
procedure TForm4.Button1Click(Sender: TObject);
var i : integer;
begin
TRY
for i := 0 to listbox1.Count - 1 do
if listbox1.Selected then break;
PlayFile(i);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Andy-h,
6. Okt 2007
Gut wenn ich das mache bleibt der fehler und es wird auch nur eine Datei in die Liste übertragen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Andy-h,
6. Okt 2007
Hallo
Ich kann die Datei öffnen und sie wird auch in die ListBox1 geladen nur wenn ich sie dann abspielen möchte kommt ein fehler:
Im Projekt MP.exe ist der Klasse EStringListError mit der meldung "Listindex überschreitet das
Maximum (0)" aufgetreten.
Ich habe bei den Code von fuknersascha eine Zeile geändert und zwar so:
Orginal: ...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Andy-h,
6. Okt 2007
Wie müsster der Code genau aussehen?
Also der Button auf den geklickt werden soll heist Button5 und in ListBox1 sollen die Lieder geladen werden.
Ich bin schon so weit:
procedure TForm4.Button5Click(Sender: TObject);
begin
If Opendialog1.execute then begin
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Andy-h,
6. Okt 2007
Hallo
Wie bekomme ich es hin das sich das Fenster öffnet in dem man Dateien öffnen kann?
Wenn ich eine Win2000-Logo-Anwendung öffne ist ja schon ein Kleines programm aufgebaut mit dem man
Daten öffnen und Speichern kann. Ich komme aber nicht dahinter wie das gemacht wird.
Ich habe eine VLC-Anwendung denke aber das das gleich aufgebaut ist.
Es geht um Musik dateien die in die ListBox1...