Objekt an Mausposition binden

[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