用DELPHI制作扑克纸牌的问题!
大家有用DELPHI制作扑克纸牌的源程序吗?请粘上来!
我用DELPHI制作时不知如何用鼠标移动纸牌!
把image1.DragMode:=dmautomatic;还是不能移动!
好像还有设置什么begindrag 和 ACCEPT 的属性!
请大虾先粘一段能移动图片的代码,谢谢~!
问题点数：100、回复次数：5Top
1 楼ChinaOk（农村表哥）回复于 2003-05-04 00:27:52 得分 20
demos
里有一个拖动的例子。虽然不是图片。但原理是一样的。Top
2 楼glink（飞天一狐）回复于 2003-05-04 00:58:09 得分 80
unit Unit1;
interface
uses
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.Top
3 楼liyangyao970（纳兰容若）回复于 2003-05-04 10:27:14 得分 0
upTop
4 楼moi（三民主义者●不羁之城）回复于 2003-05-28 12:26:41 得分 0
楼上的说话~~~~~~~~~`Top
