首页 »标签 » stringgrid按钮 » 列表
2008年9月26日stringgrid:StringGrid组件的重要属性
在程序设计语言中，二维数组必须先定义后使用，所谓先定义就是要确定二维数组的行数与列数及其数据类型。同样StringGrid组件在使用前也应定义其行数与列数，行数和列数分别用RowCount与ColCount属性动态确定。所以下面先介绍RowCount与ColCount属性。 (1)RowCount属性 RowCount属性用于确定StringGrid组件数据表的行数，可在程序设计时用对象监视器设定，将列数RowCount设置为20。也可在程序执行过程中用赋值语句将行数值赋于Row—Count. (2)ColCount属性 ColCount属性用于确定Str...
[阅读全文] [PDF]
2008年9月24日stringgrid:从DBGrid,StringGrid导出Excel
procedure TDM.CopyDbDataToExcel(Target: TDBGridEh;mb,FileName: string);variCount, jCount: Integer;XLApp: Variant;Sheet: Variant;beginScreen.Cursor := crHourGlass;if not VarIsEmpty(XLApp) thenbeginXLApp.DisplayAlerts := False;XLApp.Quit;VarClear(XLApp);end;//-----------...
[阅读全文] [PDF]
你先在窗体上放一个TApplicationEvents控件（Delphi自带的）,找到WmMouseWheelMessage事件。 下面是我实现的（这个用的是键盘的上下按键消息，你也可以改成滚动条消息）。 procedure TMainForm.WmMouseWheelMessage(var Msg: tagMSG; var Handled: Boolean); begin if (DBGrid.Focused) And (Msg.message = WM_MOUSEWHEEL) then begin if Ms...
[阅读全文] [PDF]
unit StringGridEx;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids;type TBtns = (CheckBoxes,RadioButtons);type TStringGridEx = class(TStringGrid) private { Private declarations } FTickCol:Integer; FShowTick:Boolean; FSelArra...
[阅读全文] [PDF]
2008年9月24日stringgrid删除行:StringGrid行列的增加和删除
type TExCell = class(TStringGrid) public procedure DeleteRow(ARow: Longint); procedure DeleteColumn(ACol: Longint); procedure InsertRow(ARow: LongInt); procedure InsertColumn(ACol: LongInt); end; procedure TExCell.InsertColumn(ACol: Integer); begin ColCount :=ColCount +1; MoveColu...
[阅读全文] [PDF]
1 共5条 分1页
