Hi turboPASCAL,
danke für die Antwort...
Code:
procedure TDFSMain.FormCreate(Sender: TObject);
begin
BassdllPlayer1.Volume := 70;
LS.Caption := Format ('%d %%', [BassdllPlayer1.Volume]);
LStrackbar.Position := BassdllPlayer1.Volume;
end;
Code:
procedure TDFSMain.LStrackbarChange(Sender: TObject);
begin
BassdllPlayer1.Volume := LStrackbar.Position;
LS.Caption := Format ('%d %%', [BassdllPlayer1.Volume]);
end;
Beim Ausführen steht im Label LS 10% und die Trackbar steht auf max. Habe auch die Property Volume auf 70 gesetzt und BassdllPlayer1.Volume := 70; weggelassen aber keine Veränderung...