在DBGrid中选中多行删除与如何使标题文字居中.docVIP

在DBGrid中选中多行删除与如何使标题文字居中 发表时间：2009-08-28??编辑：Jakie??来源：??希赛网 编者按：本例是在DBGrid中将选中的多行数据删除，具体步骤如下。设置DBGrid为多行选中状态 ????本例是在DBGrid中将选中的多行数据删除，具体步骤如下。 ????设置DBGrid为多行选中状态，如图7.7所示。 图7.7? 设置DBGrid为多行选中状态 ????在按钮的单击事件中使用DBGrid的SelectedRows.Delete方法删除DBGrid选中的多行。 ????主要代码如下：????procedure TFrmOrderBy.BtnOrderClick(Sender: TObject); ????begin ????if MessageBox(0, 确实要删除选中的数据吗？, , MB_YESNO + MB_ICONQUESTION) = ????? IDYES then ????begin ?????? DBGList.SelectedRows.Delete; ????end; ?????说明：按Ctrl键并用鼠标单击所要选取的记录。 ????在DataGrid中如何使标题文字居中 ????本例实现单击“标题文字居中”按钮使DataGrid表格的列标题文字居中，如图7.8所示。 图7.8? 在DataGrid中使标题文字居中 ????单击“标题文字居中”按钮遍历DataGrid表格的列，设置每个列的Title.Alignment属性居中（taCenter），主要代码如下：????procedure TFrmOrderBy.BtnOrderClick(Sender: TObject); ????var ????? i: Integer; ????begin ????? for i := 0 to DBGList.Columns.Count-1 do ????? begin ?????? DBGList.Columns[i].Title.Alignment := taCenter; ????? end; ????end; procedure ? TForm1.Button1Click(Sender: ? TObject); var ? ? i, ? j: ? Integer; ? ? s: ? string; begin ? ? if ? DBGrid1.SelectedRows.Count 0 ? then ? ? ? ? with ? DBGrid1.DataSource.DataSet ? do ? ? ? ? ? ? for ? i:=0 ? to ? DBGrid1.SelectedRows.Count-1 ? do ? ? ? ? ? ? begin ? ? ? ? ? ? ? ? GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i])); ? ? ? ? ? ? ? ? for ? j ? := ? 0 ? to ? FieldCount-1 ? do ? ? ? ? ? ? ? ? begin ? ? ? ? ? ? ? ? ? ? if ? (j 0) ? then ? s:=s+ , ? ; ? ? ? ? ? ? ? ? ? ? s:=s+Fields[j].AsString; ? ? ? ? ? ? ? ? end; ? ? ? ? ? ? ? ? Listbox1.Items.Add(s); ? ? ? ? ? ? ? ? s:= ? ; ? ? ? ? ? ? end; end; vari:Integer;for i:=0 to dg.SelectedRows.Count-1 dobegin? GotoBookmark(Pointer(dg.SelectedRows.Items[i]));? dg.datasource.dataset.edit;? ...? dg.datasource.dataset.post;end;将DATASET的LOCKTYPE属性设置为ltBatchOptimistic然后用UpdateBatch(arAll)方法提交;DBGrid可以多行选择，请问如何得到已选中所有行中的第一列的值我就是想把选中行的第一列值增加到ListBox上? vari:integer;beginwith dg.datasource.dataset dobeginfor i:=0 to dg.SelectedRows.Count-1 dobegingotobookmark(Point