www.pudn.com > 扑克牌游戏源码PlayingCard.rar > Gamewin.pas

unit Gamewin; 
 
interface 
 
uses  
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  ExtCtrls; 
 
type 
  TGameFrm = class(TFrame) 
    Image1: TImage; 
    Image2: TImage; 
    Image3: TImage; 
    Image4: TImage; 
    Image5: TImage; 
    Image6: TImage; 
    Image7: TImage; 
    Image8: TImage; 
    procedure MyMouseDown(Sender: TObject; Button: TMouseButton; 
      Shift: TShiftState; X, Y: Integer); 
    procedure MYMouseMove(Sender: TObject; Shift: TShiftState; X, 
      Y: Integer); 
    procedure MyMouseUp(Sender: TObject; Button: TMouseButton; 
      Shift: TShiftState; X, Y: Integer); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
implementation 
 
{$R *.DFM} 
 
procedure TGameFrm.MyMouseDown(Sender: TObject; Button: TMouseButton; 
  Shift: TShiftState; X, Y: Integer); 
begin 
// 
 
 
 
 
end; 
 
procedure TGameFrm.MyMouseMove(Sender: TObject; Shift: TShiftState; X, 
  Y: Integer); 
begin 
  // 
end; 
 
procedure TGameFrm.MyMouseUp(Sender: TObject; Button: TMouseButton; 
  Shift: TShiftState; X, Y: Integer); 
begin 
    // 
end; 
 
end.