rt
解决方案 »
- Delphi都有什么好点的可以在上面绘图的控件?
- 下载的Delphi 2007 精简版(update 3)安装前可不可以不安装.net framework 2.0 ?
- 扩展名.rmf、 .xsw各是什么文件?
- 急!为什么动态创建的Label控件,在运行时看不见,而同样创建的Button能看得见?请朋友们指点.谢谢!(附我的代码)
- 做好的程序,我在主界面上放上businessskin 控件,为什么菜单相没了啊,
- 如何获得程序方向键输入?多谢!
- 点击dbgrid控件的控件头上的一个字段将触发什么事件?
- 如何判断电脑多长时间没人操作
- 让我们都来关心自己的身体-----程序员健康状态小调查
- socket传送的数据会丢失吗
- 大家帮帮忙啊 delphi简单进销存程序
- DELPHI初学者忘各位老师指教:ADO实现保存数据到access数据库
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var s :string;
begin
s:=dbgrid1.SelectedField.AsString;
if gdSelected in State then begin
dbgrid1.Canvas.Brush.Color:=clred;
(Sender as TDBGrid).Canvas.FillRect(Rect);
(Sender as TDBGrid).Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2,s);
end;
end;