trsckbar?试试这个
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
if Abs (Trackbar1.Position-Mediaplayer1.Position)>5000 then
begin
mediaplayer1.Stop
mediaplayer1.Position:=trackbar1.Position;
mediaplayer1.Play;
end;
end;
至于第二个问题
加上控件directorylistbox
drivecombobox
filelistbox
filtercombobox
然后把各自的events触发，链接就好了，不知道你要得是不是这个
如果是菜单下的打开，就用
procedure TForm1.N2Click(Sender: TObject);
begin
form1.OpenDialog1.Execute
end;
不大明白你想要哪个，自己选了
