unit1.pas

一个关于DELPHI的CARD辕马 一个关于DELPHI的CARD辕马一个关于DELPHI的CARD辕马

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Card;

type
  TForm1 = class(TForm)
    Card1: TCard;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Card1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  wzCard:TCard;
  i:integer;
begin
  for i:=1 to 13 do
  begin
    wzCard:=TCard.Create(self);
    wzCard.Parent:=Form1;
    wzCard.Top:=8;
    wzCard.Left:=8+(wzCard.Width div 2)*i;
    wzCard.Value:=i;
    wzCard.OnClick:=Card1Click;
  end;
end;

procedure TForm1.Card1Click(Sender: TObject);
begin
  ShowMessage(IntToStr((Sender as TCard).Value));
end;

end.