Pravim nekakav mp3 player ali evo sto me muci:
1. mp3 player-u pravim neki svoj skin ali me muci kako da sakrijem listbox-u scrollbar
2. zašto mi ne radi ovaj kod:
CODE:
////////////////////////////////////////////////////////////////////////////////////////
procedure TForm1.FormCreate(Sender: TObject);
var
strm : TFileStream;
begin
if FileExists('MojaLista.DAT') then begin
strm := TFileStream.Create('MojaLista.DAT', fmOpenRead);
strm.ReadComponent(ListBox1);
strm.Free;
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
strm : TFileStream;
begin
strm := TFileStream.Create('MojaLista.DAT', fmCreate);
strm.WriteComponent(ListBox1);
strm.Free;
end;
//////////////////////////////////////////////////////////////////////////////////////////
Kod radi kad ga kompajliram, ali kad dodavam iteme iz edita ili neceg drugog u listbox sačuva ih i ocita pri pokretanju programa, ali kad dodavam mp3-eve ili neke druge pjesme iz opendialog-a on ih sacuva ali ih ne mogu ocitati to jest kad ih ocitam listbox je prazan.