Hallo,
Ich habe mir die TrackBar Komponente mit den MouseDown und MouseUp Ereignissen geladen. Dies TrackBar dient mir dazu um die Song Position zu setzen. Diese funktioniert aber ich bekomme keine genauen Positionen. Es wird zu stark gerundet.
Vorher hatte ich es mit WndProc versucht:
Delphi-Quellcode:
rocedure TForm1.WndProc(var Msg: TMessage);
var
Pos: TPoint;
begin
If Msg.Msg = WM_LBUTTONDOWN then
begin
Pos:=Mouse.CursorPos;
If SoundObject <> nil then //wenn ein Song abgespielt wird
begin
If (Pos.Y >= TrackBar.Top + 7) and (Pos.Y <= TrackBar.Top + 13) then
begin
//hier kommt der Code zum setzen der Position im Song
end;
end;
end;
inherited;
end;
Wie kann ich die Position genau setzen?
Gruß
Mazel