摘要：
简便的方法：其实可以简化问题用TScreen对象的功能就可以了：Screen.Cursor:=crHandPoint;--------------------------------------------------------较复杂的方式 使用API函数 和消息用SetCursor要拦截WM_SETCURSOR以下是一个例子：unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, BtnEdit, Buttons; 阅读全文
摘要：
需要注意的是 该段程序使用了 canvas。procedure TW_CkbTaiZhang.KhLstDrawCell(Sender: TObject; ACol,ARow: Integer; Rect: TRect; State: TGridDrawState);begin if ARow=khlst.Row then with khlst.Canvas do //画 cell 的边框 begin Pen.Color := $00ff0000; //定义画笔颜色(蓝色) MoveTo(Rect.Left, Rect.Bottom); //画笔定位 LineTo(Rect.Right, Re 阅读全文
摘要：
procedure TfrmMain.xGridDataToExcel(mGrid: TStringGrid; pTitle, SePTitle,pTail, pStrCols: string);vari,j:integer;strlist:Tstringlist;str,Filename:string;h,k:integer;Excelid: OleVariant;s: string;v,sheet,range:variant;icol,irow:integer;nCols:integer;nCurrCol:integer;nCurrRow:integer;beginexcelSaveto. 阅读全文
摘要：
delphi 导出数据到WPS表格的方法和导出到Excel方法雷同，都涉及使用Ole。导出到Wps表格时需要创建这样的Ole组件实例：varetapp:olevariant;myworkbook: OleVariant; //定义金山表格的工作簿对象etapp:=createoleobject('et.application');//启动wps表格现在网上有一段现成的代码，它就是实现将一个表格里的数据导出到 wps的电子表格文档中。具体代码如下：procedure TfrmMain.Button10Click(Sender: TObject);vari,row,column,j 阅读全文