In der procedure
Delphi-Quellcode:
var
TrackPos: Integer;
begin
TrackPos := BASS_ChannelGetPosition(Channel);
tb1.Position := TrackPos;
Zeit.Caption := IntToStr(TrackPos);
Application.ProcessMessages;
wird begin markiert. Allerdings bringt mich das nicht weiter.
@pierreb:[
OT]
****[/
OT]