Drag and Drop an Mauszeiger

[faux]

Hallo!

Wie kann ich bei einer Drag and Drop Operation die Komponente life mitbewegen? Also dass diese immer an der aktuellen Stelle der Maus ist?

Habe es schon so probiert:

Delphi-Quellcode:

procedure TCashMachineForm1.CardMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  if Shift = [ssLeft] then
  begin
    (Sender as TImage).Left := X;
    (Sender as TImage).Top := Y;
  end;
end;

Jedoch wird das Event OnMouseMove nicht aufgerufen, wenn die DragMode auf dmAutomatic ist. :S

Grüße
Faux

[_frank_]

bei TWinControl-Ableitungen kann man es so machen:

Delphi-Quellcode:

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    if Button=mbLeft then begin
        ReleaseCapture;
        if sender is Tpanel then 
          (sender as Tpanel).Perform(WM_NCLBUTTONDOWN,HTcaption,0);
    end;
end;

wenns es das nicht ist, muss man mit mousedown/up und move die steuerung selber programmieren.

HTH Frank

[faux]

Nein, so geht es auch nicht. Weder mit DragMode auf dmManual noch auf dmAutomatic.

Grüße
Faux

[_frank_]

schau dir mal unter
http://www.fw-web.de/units.htm
die imagemoving.zip an, da ist das drag&drop manuell gecoded.

Gruß Frank