Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Drag&Drop für Kartenspiel

   
    by _frank_, 7. Mär 2009
  also nochmal manuell, sollte aso in der clx funktionieren:
  
  
  { Private-Deklarationen }
  fDragging:boolean;
  fRelPos:TPoint;
  ...
  procedure TForm1.PanelMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  begin
• Forum: Sonstige Fragen zu Delphi

  Re: Drag&Drop für Kartenspiel

   
    by _frank_, 5. Mär 2009
  quick & dirty:
  
  du hast panels, wo je ein TImage drauf liegt. den Images weist du diese Methode als OnMouseDown zu:
  
  procedure TForm1.ImageMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var pnl:TPanel;
  begin
  if Button=mbLeft then
  begin