使用過Windows 98的用戶對其自帶的紙牌游戲一定不會陌生，在您的鼠標點擊、拖動等操作之下，撲克牌上下翻飛、騰挪組合；在您不經意的操作中，其實您已經觸發了一系列預設事件，這些事件過程的響應最終讓您體會到成功的喜悅和失敗的痛苦。但您想不想體會一下借助于某種開發工具自己去編程實現的感覺呢，充分體會Delphi的事件驅動機制，這將是另外一番享受，并且理解了事件驅動機制后，再作其他更深層次的開發，這樣您會變得更加得心應手。

　　一、單張牌的實現

　　Delphi編程環境中提供了圖形按鈕控件，設計時采用了一個按鈕就是一張牌，我們可以將選定的圖形(如BMP圖形，大小合適)作為其背面和前面。在Delphi中，圖形的裝入顯示的方法為：

　　圖形按鈕.glyph.loadfromfile('圖形文件路徑+文件名')

　　在設計中可以事先準備52張撲克正面圖形和幾張背景圖形，用控件(控件數組)動態生成的方法(Create(Self))逐一調用。

　　二、關于圖形按鈕

　　在游戲中要對撲克牌進行正確的操作還要借助在其圖形按鈕上增加幾個屬性(如圖1)


圖1

　　HS：標識一張牌的花色(方塊、黑桃、紅心或梅花)。

　　DS：標識一張牌的點數(1-13即A-K)。

　　HB：標識一張牌的黑色和紅色。

　　Over：標識本張牌上面是否有牌壓著。

　　Look：標識本張牌的正面或背面。

　　Area：指定本張牌的操作區域，在設計中將各操作區定義為如圖2所示各操作區。

　　發牌源區(Source)：即左上角兩疊牌。

　　回歸區(Home)：即右上角四門回收處。

　　操作拖放區(Operate)：即下排(7疊)主要拖放區。

　　PTR屬性：用于支持多張撲克牌的拖動操作，為一指針，指向單張牌。筆者用此屬性來實現一疊牌的拉單向鏈表。也可以再加一屬性拉雙向鏈表方便操作。

　　三、撲克牌的操作

　　撲克牌的操作多數是通過Delphi提供的事件驅動編程實現的，開始一個拖動牌操作：Delphi是從OnMouseDown事件開始。請參考OnMouseDown模塊。

　　接受/拒絕被拖動的牌：這里由OnDragOver事件決定，要接受被拖動的牌，必須把圖形按鈕的Accept屬性設為TRUE。

　　釋放處理被拖動的牌：這里由EndDrag和DragDrop事件被激發來處理，這里選用了DragDrop事件來處理，因為該事件只有當DragOver事件的Accept設為TRUE時，只有這個事件被激發。


圖2

　　另外，撲克牌的位置改動是通過Top和Left屬性實現的。

　　這里在設計時，52個控件共享Click、OnMouseDown、OnDragOver、OnDragDrop事件。

　　在運行時是動態賦予的。程序中如下例賦予事件代碼：

　　Mainpk[i].OnMouseDown:=pk1mousedown;

　　Mainpk[i].OnDragOver:=pk1DragOver;

　　Mainpk[i].OnDragDrop:=pk1Dragdrop;

　　Mainpk[i].OnClick:=pk1Click;

　　四、程序的實現

　　程序開始時先動態生成52張牌(圖形按鈕)，賦予花色、點數、正面圖形等，接著利用Delphi提供的隨機函數RANDOM(), 將52張牌次序打亂，完成洗牌。接著開始發牌，動態賦予事件代碼。之后由接受用戶選擇進入游戲，游戲處理過程實際上就是相應事件代碼在運作。

　　游戲調試通過后，筆者還查閱了其他相關資料，有的系統還提供了專門的關于撲克牌方面類庫或API函數供程序員直接調用，減少了程序員的設計復雜性，有興趣的讀者也可以不妨一試。