怎么隐藏cmbobox的边框，并为其增加下划线

如何隐藏cmbobox的边框，并为其增加下划线
如何隐藏cmbobox的边框，并为其增加下划线。如下图所示



如果将cmbobox的bevelkind属性设置为bevelflag的话，可以去掉边框，但是下拉箭头也变成是平面的，不像上图那样立体。如下图
http://hi.csdn.net/attachment/201202/20/0_1329704359GGjg.gif

[解决办法]
自己改控件或换控件 cx套件不错，给分！
[解决办法]

探讨

自己改控件或换控件 cx套件不错，给分！

[解决办法]
http://download.csdn.net/detail/chenxh/131137
[解决办法]
对,用CX控件,就可以解决.
[解决办法]
设置GRID的OPTION属性：DGROWSELECT设置为true

当你编辑这个GRID时就是这个效果
[解决办法]
这个。。。。

因为我一般都是在另一个EDITFORM中增改值的，所以没怎么注意……看看……
[解决办法]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 with TStringGrid(DBGrid1) do begin
if row = MouseCoord(Rect.Left+1, Rect.Top+1).Y then
begin
Canvas.Brush.Color := clblue;
Canvas.Font.Color := clWhite;
end;
end;
TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);

end;
找了这段代码，测试可靠，，OnDrawColumnCell事件添加

[解决办法]
如果是DBGRIDEH的话设置OPTIONS属性下的dgrowheightlight为true就好了

上面是标准控件里的效果
[解决办法]
TStringGrid(DBGrid1).Row

不是变量，是属性
[解决办法]
如果是DBGRIDEH的话设置OPTIONS属性下的dgrowheightlight为true就好了

[解决办法]
如果是DBGRIDEH的话设置OPTIONS属性下的dgrowheightlight为true就好了

[解决办法]

如上图添加一列标识栏位
procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin
if Column.Index = 0 then
with DBGrideh1.Canvas do
begin
FillRect(Rect);
TextOut(Rect.Left+2, Rect.Top+2, IntToStr(DBGrideh1.DataSource.DataSet.RecNo));
end;
效果如下图


没见过DBGRID的左边黄色区域可以拉长的，倒是可以在上面画上标识，但区域太智智短
不能完全显示行标

[解决办法]
所以我所知道的方法也就只有这种比较好了
[解决办法]
procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin
if DataCol=0 then
begin DBGridEh1.Canvas.Brush.Color:=clBtnFace;
DBGridEh1.Canvas.Font.Color:=clBlack;
DBGridEh1.Canvas.TextOut(Rect.Left-10,Rect.Top+3,IntToStr(DBGridEh1.DataSource.DataSet.RecNo));
end;
end;
效果如图所示

我这边就不去调整这个了
[解决办法]
在另一个帖子回复了

查看更多 下一篇