Drag&Drop für Kartenspiel

[_frank_]

quick & dirty:

du hast panels, wo je ein TImage drauf liegt. den Images weist du diese Methode als OnMouseDown zu:

Delphi-Quellcode:

procedure TForm1.ImageMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var pnl:TPanel;
begin
  if Button=mbLeft then
  begin
    ReleaseCapture;
    pnl:=((sender as TImage).parent as TPanel);
    pnl.BringToFront;
    pnl.Perform(WM_NCLBUTTONDOWN,HTcaption,0);
  end;
end;

Gruß Frank