Hallo,
bin neu hier und verspreche mir trotzdem irgendwie Hilfe zu bekommen.
Ich habe mir da ein kleines Programm geschrieben. Das beinhaltet eine Text – Anzeige und einen TMediaplayer.
Des weiteren soll da auch aktiv die Lautstärke geregelt werden können.
Soweit läuft auch alles „WUHHHNDERBAAAAHR“.
Aber trotzdem habe ich ein Problem:
Wenn ich die Lautstärke regele dann zeigt sich auch parallel in der Eigenschaft des Lautsprechersymbols in der Taskleiste, dass ich die Lautstärke ändere.
Da ich absolut Neuling in „Delphi“ bin, suche ich mir auch nat. öffentliche Codes. Dabei bin ich auf das Tool von „Sunisoft FreeVCL“ gestoßen. Die Einbindung ist (jedenfalls für mich) sehr einfach:
Delphi-Quellcode:
procedure TForm1.TrackBar2Change(Sender: TObject);
begin
ssVolumeController1.Volume:=trackbar1.Position;
end;
Aber was fehlt, ist die Funktion andersrum… Die Trackbar soll sich auch auf das Ereignis einrichten, wenn ich die Lautstärke des Mixers von ändere.
Ich habe es mittels Timer versucht:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Trackbar1.Position:=ssVolumeController1.Volume;
end;
Auch das funktioniert, aber der Schieber wackelt bei dem Prozess ständig hin und her…. Was sollte ich tun, damit da verhindert wird?