connect4.cpp
The classic game of connect 4. Only 2 player play. Uses BGI graphics. Has good visuals.
AI
Tóm tắt bởi AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Mã nguồn
Upload
<font face="courier new" size="-1">
<b>unit</b> Unit1;<br /><br />
<b>interface</b><br /><br />
<b>uses</b><br />
Windows,<br />
Messages,<br />
Forms;<br /><br />
<b>type</b><br />
TForm1 = <b>class</b>(TForm)<br />
<b>protected</b><br />
<b>procedure</b> WMNCHitTest(<b>var</b> Msg: TWMNCHitTest); <b>message</b> WM_NCHITTEST;<br />
<b>end</b>;<br /><br />
<b>var</b><br />
Form1: TForm1;<br /><br />
<b>implementation</b><br /><br />
<font color="#000080">{$R *.DFM}</font><br /><br />
<b>procedure</b> TForm1.WMNCHitTest(<b>var</b> Msg: TWMNCHitTest);<br />
<b>begin</b><br />
<font color="#000080">// Call default procedure</font><br />
<b>inherited</b>;<br /><br />
<font color="#000080">// Modify result to make windows think we're<br />
// clicking on the titlebar when we're actually<br />
// clicking on the client area...</font><br />
<b>if</b> Msg.Result = HTCLIENT <b>then</b><br />
Msg.Result := HTCAPTION;<br />
<b>end</b>;<br /><br />
<b>end</b>.<br />
</font>
Bình luận gốc (3)
Được khôi phục từ Wayback Machine