Delphi获取当前鼠标下的控件内容主要函数:GetCursorPos;//获取鼠标的位置WindowFromPoint;//获取制定point下的handleGetClassName;//获取类的名字 functionTForm1.GetEditText:string;var Point:TPoint; Name ...……
新建一张表 Ca int b stringform中添加:组件 名字dbgrid dbgrd1button btn1checklist chklst1;第一步:连接dbgrid到表;sql: select*from C;第二步:button事件中;添加代码beginfori:=0todbgrd1.C ...……
//校验手机号 function IsMobileNumber( num:string ):boolean; begin Result:=False; if length( trim( Num ) ) amp;amp;lt;amp;amp;gt; 11 then Exit; if ( ( copy( n ...……
+
Using Delphi and Python together
Talk for the Australian Delphi User Group (ADUG), July and August 2001-Andy Bulka
Delphi = a great object oriented language, and a……