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 ;)

[Sidewinder]

wie ist es damit.....

Delphi-Quellcode:

var
dragged : boolean;

procedure TForm1.FormCreate(Sender: TObject);
begin
  application.OnMessage := MSGevent;
end;

Procedure Tform1.MSGevent(var Msg: tagMSG; var Handled: Boolean);
var mousepos : Tpoint;
begin
  if (Msg.message = WM_LBUTTONDOWN) then
  begin
    dragged := true;
  end;
  if (Msg.message = WM_LBUTTONUP) then
  begin
    dragged := false;
  end;
  if dragged then
  begin
    mousepos := form1.ScreenToClient(mouse.CursorPos);
    Shape1.Left := mousepos.X - (Shape1.Width div 2);
    Shape1.Top  := mousepos.Y - (Shape1.Height div 2);
  end;
end;

[mr_emre_d]

so wird das Objekt nur bewegt, wenn die maus gedrückt ist !

MfG

[Sidewinder]

Zitat:

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 hatte es so verstanden das er es so haben will :gruebel:

[grebaldi]

ich komme übrigens mit dem posten nicht mehr hinterher. Zweimal wollte ich mich jetzt schon bedanken und einmal sagen, dass das ja richtig ist mit der gedrückten maus :cheers:

[Sidewinder]

ok... alle klarheiten wurden beseitig :lol:

[mr_emre_d]

Zitat:

Zitat von Sidewinder

Zitat:

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 hatte es so verstanden das er es so haben will :gruebel:

Ohh ... Ich habe nicht genau geschaut :) Ist ja auch schon so spät :tongue:

[grebaldi]

Alles klar, Problem gelöst, gute nacht!

[Sidewinder]

dann ist es ja gut... viel spass noch beim "coden"
cu