Objekt an Mausposition binden

[grebaldi]

Guten Morgen, Gemeinde!

Mein Problem sieht folgendermaßen aus:

Ich möchte ein TShape mit dem OnStartDrag-Ereignis eines Labels erzeugen und dafür sorgen, dass dieses Shape der Maus folgt. Mit dem OnEndDrag-Ereignis des Labels soll das Shape dann wieder verschwinden.

Ich bin leider völlig ratlos, obwohl es ja ziehmlich simpel klingt...

Hoffentlich wisst ihr alle mehr als ich...

Beste Grüße,
grebaldi

[Sidewinder]

ueber den paint-event der Form könnte man die mousepos übergeben z.B.

[grebaldi]

dann würde das shape aber der maus nicht folgen

[mr_emre_d]

klar würde er das machen ;)

[grebaldi]

habs eben ausprobiert... Er machts nicht... :wall:

[Sidewinder]

Zitat:

klar würde er das machen

Hmmmm.. jein... man müste die Form immer wieder neu zeichnen... nicht gut....

[Sidewinder]

- setz ne globale var durch den labeldragevent
- Form.onmousemove... übergeb damit die cursorpos...
uuppsss vergessen.. sample:

Delphi-Quellcode:

var blub : boolean;

Procedure tform1.onmousemove();
begin
  if (Shape <> nil) and blub then
  begin
    {poswerte übergeben}
  end;
end;

[grebaldi]

Jo, die Idee hatte ich auch gerade, aber da gibt es ein geringfügiges Problem.
Wenn sich die Maus nun innerhalb der Listbox oder irgendeinem beliebigen Element auf dem Formular befindet, bewegt sich das Shape nicht mehr mit.
Rein Theoretisch müsste ich die Routine in alle vorhandenen OnMouseOver-Events einbinden, damit das einwandfrei funktioniert - aber gibt es da nicht vielleicht eine elegantere Lösung?

[Sidewinder]

schei.. stimmt... sorry bin etwas eingerostet... :wall:

[mr_emre_d]

Code:

timer, intervall: 10

OnTimer:
  Shape1.Left := ScreenToClient( Mouse.CursorPos ).X - Shape1.Width div 2;
  Shape1.Top := ScreenToClient( Mouse.CursorPos ).Y - Shape1.Height div 2;

Ist nicht so elegant, aber das müsste für dich reichen ;)