用DELPHI制作扑克纸牌的问题!

Question

大家有用DELPHI制作扑克纸牌的源程序吗?请粘上来!我用DELPHI制作时不知如何用鼠标移动纸牌!
把image1.DragMode:=dmautomatic;还是不能移动!好像还有设置什么begindrag 和 ACCEPT 的属性!
请大虾先粘一段能移动图片的代码,谢谢~!

Answer 1

demos
里有一个拖动的例子。虽然不是图片。但原理是一样的。

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  Seeds:byte;
  cardCount:integer;
  Cards:array[0..27] of TImage;implementation{$R *.DFM}function drawcard(bmp:tbitmap;num:integer):integer;far;
  external 'gbhcards.dll';procedure TForm1.Button1Click(Sender: TObject);
var
  i,j:integer;
begin
  for i:=0 to cardCount do begin
    Cards[i]:=TImage.Create(Self);
    with cards[i] do begin
      parent:=form1;
      width:=71;
      height:=96;      j:=trunc(i/13);
      Top:=j*60+20;
      Left:=i*12;
      //transparent:=true;
      //visible :=true;
      drawcard(Cards[i].Picture.Bitmap,i);
    end;
  end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  cardCount :=53;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  i:integer;
begin
  for i:=0 to cardCount do Cards[i].free;
end;end.