把Edit的边框属性设为None,在它下边自已画一条线.
解决方案 »
- 在Eblib中怎么控制DBGridEh在PrintDBGridEh的大小呢?
- 如何编程实现遍历某一目录下的所有文件及文件夹(急!)
- 超難!高分相送!!!
- 巨简单!来抢分!
- SQL添加字段时出这个提示,是什么意思??
- 如何通过按钮起用WORD.FrontPage等软件?
- 怎么增加可用分?
- 放100分问问题。。不好意思。。有点少了!!!
- 编写了ListView的拖动事件后,在双击后会自动进入拖动状态,是否为Bug?
- 如何给打开文件对话框加上预览?(支持txt,rtf,htm,bmp,gif,jpg等)
- Delphi中有没有"Proxies.pas"这个文件。
- 请教各位:在stringgird 中能否用颜色区分每个小格
Left = 192
Top = 129
Width = 544
Height = 375
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Shape1: TShape
Left = 64
Top = 48
Width = 105
Height = 1
end
object Edit1: TEdit
Left = 64
Top = 34
Width = 105
Height = 14
BevelOuter = bvNone
BorderStyle = bsNone
Color = clScrollBar
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 0
Text = 'Edit1'
end
end