Ich habe ein overlay Label auf meine Form gesetzt.
Beim klick auf dem Label hole ich mir über GetCursorpos die aktuelle X Koordinate.

Mit dieser möchte ich nun meine StartBar auf die Position setzen von der aus ich später meinen Song abspielen möchte.
aber irgendwie ist die berechnung nicht korrekt.

Hab mich da mal schlau gemacht..
Round((Twips.X / 1440) * PixelsPerInchX); Aber auch hier bekomme ich nicht das richtige maß.
Auch nicht wenn ich loword(lp) für den TPoint übergebe.

Welche möglichkeiten gibt es da noch?

gruss

Soll es die Position sein deiner Komponente auf der Du klickst oder die Position der Maus?
Ersteres würde so gehen!
Position := Point(DeineKomponente.Left, DeineKomponente.Top);

alfold

Emil, du solltest vllt öfter drauf hinweisen, dass es sich dabei um eine nonVCL Applikation handelt. Sonnst bekommst du immer wieder Antworten die auf der Hand liegen.^^

Zitat von lbccaleb:

Emil, du solltest vllt öfter drauf hinweisen, dass es sich dabei um eine nonVCL Applikation handelt. Sonnst bekommst du immer wieder Antworten die auf der Hand liegen.^^

Ja ist wohl wahr..
Trotzdem Danke für die Antwort.

Habe es mittlerweile hinbekommen.

markieren

Delphi-Quellcode:

          if not MidiTracker.PlayingSong then
          begin
            GetCursorPos(p);
            ScreenToClient(OverLayLabel.Handle, p);
            MidiTracker.SetStartBar(MidiTracker.Handle, p.x);
          end;

Ist nicht Hundert Prozent exakt aber es reicht mir so.

Gruss