chcę żeby z formy2 w form1 w statictext wyciągał taga
oto małe zródło...
procedure TForm2.ListBox1Click(Sender: TObject);
var
mpfile : tfilestream;
buffer : array[1..128]of char;
tag: ttag;
begin
form1.MediaPlayer1.filename := listbox1.Items[listbox1.itemindex];
form1.MediaPlayer1.Open;
form1.timer1.enabled:=true;
form1.vrmediabutton1.enabled := form1.VrMediaButton1.visible;
form1.vrmediabutton2.enabled := form1.VrMediaButton2.visible;
form1.vrmediabutton3.enabled := form1.VrMediaButton3.visible;
form1.vrmediabutton4.enabled := form1.VrMediaButton4.visible;
form1.vrmediabutton5.enabled := form1.VrMediaButton5.visible;
begin
mpfile := tfilestream.Create(listbox1.items, fmopenread);
mpfile.Seek(mpfile.Size - 128, sofrombeginning);
mpfile.Read(buffer, 128);
with tag do
begin
id := copy(buffer, 1, 3);
title := copy(buffer, 4, 30);
artist := copy(buffer, 34, 30)
end;
if tag.id = 'tag' then
begin
form1.statictext4.caption := tag.Artist;
form1.StaticText5.Caption := tag.Title;
begin
form1.scrollbar1.Max := form1.mediaplayer1.length;
form1.vrprogressbar1.maxvalue := form1.mediaplayer1.length;
end;
end;
end;
end;
end.