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

[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

[Sidewinder]

ok... alle klarheiten wurden beseitig

[mr_emre_d]

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

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

[grebaldi]

Alles klar, Problem gelöst, gute nacht!

[Sidewinder]

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