摘要：大学期间基本没有什么编程经验，虽然上学期间相关的课程也学了一些，但那些只是基本的东西而已。比如c语言、比如数据结构、比如数据库。况且作为一个学生，一个比较懒的学生，我基本上是只学了那些老师所教的东西，所谓的“重点”。可以说，对于程序开发，我是一个门外汉。而大学毕业后，我的工作恰又和编程有关。作为一个门外汉，我选择了delphi作为开发工具，经过半年的学习和实践，竟也完成了工......
摘要：文/jorge如前所述，算法层的实现，不外乎两种操作：1。如果一个方块的数值等于周围未挖开的方块数目，则把周围所有方块标记为雷；2。如果一个方块的数值等于周围已经标记为雷的方块个数，则在该块上同时单击左右键。实际上，这只是最简单的两种判断（简单到甚至不该称之为“判断”，而只是例行公事而已），而比这更复杂的分析判断还可以有很多，但现在我们追求的是程序的简单易懂，而且，就这两种......
DBGrid单元格画圆圈
procedure tform1.dbgrid1drawcolumncell(sender: tobject; const rect: trect; datacol: integer; column: tcolumn; state: tgriddrawstate); 【程序编程相关:
软件启动画面中启动状态的显示
】 【推荐阅读:
delphi2005探讨之四
】var 【扩展信息:
获取其他进程中StatisBar的文本
】 s:string; begin tdbgrid(sender).defaultdrawcolumncell(rect,datacol,column,state); s:=column.field.displaytext; if (column.fieldname=fax) and (length(s)<10) then begin with tdbgrid(sender).canvas do begin pen.color :=clred; arc(rect.left,rect.top,rect.right,rect.bottom,rect.left,rect.top,rect.left,rect.top); end; end; end; 直接画圆弧就可以了,后面的这种方法只是提供一种参考: procedure tform1.dbgrid1drawcolumncell(sender: tobject; const rect: trect; datacol: integer; column: tcolumn; state: tgriddrawstate); const ...
下一页 摘要：unit unit1;
interface
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, extctrls, stdctrls, jpeg;
const lmousedown=false;
type
tform1 = class(tform)
......
