我把DBGrig的dgMultiSelect设置为True,大家知道,在dbgrid显出的时候可以用
crl+鼠标进行多行选择。
问题是:怎么样对选中的几行进行事件处理,我想达到:选中的几行变成另外一种颜色?
请高手指教!测试成功,马上给分。
crl+鼠标进行多行选择。
问题是:怎么样对选中的几行进行事件处理,我想达到:选中的几行变成另外一种颜色?
请高手指教!测试成功,马上给分。
解决方案 »
- 声音音量的显示.大家帮帮我.
- 初级问题,Delphi中 #$10 如何转换成整型的16?
- 福州的或者有意到福州的朋友进来看看
- 如何控制这三个线程的同步,谢谢帮助,急啊!
- 有关f1BOOK中的打印问题,急急急!!!!!!
- 请问这样把data数据中的年月日分开啊?
- 两个月没来,CSDN是全变了样了,提个问,再散点分。
- 请问:delphi中他tadodataset怎样进行批处理insert数据操作?
- 询问Filtered和使用Query的方法来查询数据,哪个更快?
- 如何在tquery中添加计算字段?
- QuickReport previewmodal问题
- ShortDateFormat设置日期格式问题
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if( gdSelected in State)then BEGIN
DBGRID1.Canvas.Brush.Color := CLRED;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, [gdSelected]);
END;
end;
注意设置options中的dgRowSelected为True;,dgMultiSelect为True,defaultDrawing为False
if( gdSelected in State) then
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
GotoBook(pointer(DBGrid1.SelectedRows.Items[i]));//选中的记录
//……做你的事
end;
end;
//……做你的事
我写为:
adotable1.FieldByName('taxrate').AsString:='2';
adotable1.Post; 但运行出错:(我用adotable,adoconnection,datasource连接的数据库为:access数据库dbdemos中的customer表)
adoTable1.Edit;//加上这句,因为在gotoBookMark后状态已变为Brows
adotable1.FieldByName('taxrate').AsString:='2';
adotable1.Post;