ajutor delphi

[nimenialtul]

As dori sa ma ajutati si pe mine cu ceva

vreau ca atunci cad dau un click pe ceva dintr-un filelistbox sa apara numele intr-un label sau un panel

help-me pls

[c0smyn]

Adaugi un label pe form

Acum la un button sau la ce vrei tu la eventul OnClick pui acest cod

var
i: integer;
begin
for i := 0 to (FileListBox1.Items.Count - 1) do
if FileListBox1.Selected[i] then
label1.Caption := FileListBox1.Items[filelistbox1.itemindex];
end;

[nimenialtul]

Am zis sa postez tot aici sa nu mai deschid in alt topic mai am nevoie de ajutor cum pun comanda la un scrollbat pentru volum ca la winamp

vreau sa fac un player si as vrea sa ii fac si volum

[c0smyn]

Adaugi sus la USES, MMSystem.

Pui acest cod sub {$R *.dfm}

procedure ChangeVolume(left, right: Word);
var
  a: HWAVEOUT;
  b: TWAVEFORMATEX;
  vol: DWORD;
begin
  FillChar(b, SizeOf(, 0);
  waveOutOpen(@a, WAVE_MAPPER, @b, 0, 0, 0);
  vol := left + right shl 16;
  waveOutSetVolume(a, vol);
  waveOutClose(a);
end;

Iar acum pentru a schimba volumu , dai click pe scrollbar , si la OnChange pui acest cod

ScrollBar1.max := 65535;
ChangeVolume(scrollbar1.Position,scrollbar1.Position);

[nimenialtul]

merci cosmyn esti tare