自由程序员（网络偏执狂）- epzk

dbgrid->options   dgRowSelect   =   true   dgMultiSelect   =   true

var i:integer; begin for i:=0 to dbgrid1.Columns.Count-1 do begin showmessage( dbgrid1.DataSource.DataSet.FieldByName(dbgrid1.Columns[i].FieldName).AsSt

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, But

 常用控件命名前缀 控件类名前缀TForm等窗体类 frmTButton, TSpeedButton等所有的按钮类 btnTCheckBox等所有的检查框 chkTRadioButton单选按钮类rdoTListBox等

var tempAllId:string; i:integer;begin with dbgrid1.DataSource.DataSet do begin for i:=0 to dbgrid1.SelectedRows.Count-1 do begin if i>0 then tempAllId:=tempAllId+,;

var tempAllId:string; i,j:integer;begin with dbgrid1.DataSource.DataSet do begin for i:=0 to dbgrid1.SelectedRows.Count-1 do begin GotoBookmark(pointer(DBGrid1.Selected

ShowScrollBar(dbgrid1.Handle,SB_BOTH,false); //去掉水平和垂直滚动条 ShowScrollBar(dbgrid1.Handle,SB_VERT,false); //去掉垂直滚动条 ShowScrollBar(dbgrid1.Handle,SB_HORZ,false); //去掉水平滚动条

1.SHIFT+鼠标左键 先选中任一控件,按键后可选中窗体(选中控件后按Esc效果一样)2.Shift+F8 调试时弹出CPU窗口。 3.Shift+F10 等于鼠标右键（Windows快捷键）。4.Shitf+箭头 选择 5.shift +F12 快速查找窗体并打开6.F7 （步进式调试同时追踪进入子过程） 7.F8 （步进式调试不进入子过程）8.F9 运行 9.F12 切换EDITOR,FOR

with dbgrid1.DataSource.DataSet do begin First; while not eof do begin fieldbyname(ReminderType).AsString; next; end; end;