有没有下划线编辑框控件100分(100)

有没有下划线编辑框控件，如果有请发到liai8@126.com，马上给分。谢谢！

什么叫下划编辑框控件？

是下划线编辑框，写错了

这样处理就可以了：界面上放一些TEdit,属性为 BevelInner = bvNone BorderStyle = bsNone---------------------------------------unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TEdit = Class(StdCtrls.TEdit) private procedure WMPaint(var Message: TWMPaint); message WM_PAINT; public end; TForm1 = class(TForm) Edit1: TEdit; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);beginend;{ TEdit }{ TEdit }procedure TEdit.WMPaint(var Message: TWMPaint);var FCanvas:TControlCanvas;begin inherited; FCanvas := TControlCanvas.Create; FCanvas.Control := Self; FCanvas.MoveTo( 0, Self.Height-2 ); FCanvas.LineTo(Self.Width,Self.Height-2); FCanvas.Free;end;end.

搞定了，你的方法我没试，不过应该可以，我用了lineedit控件搞定的。

edit即可实现

edit即可实现属性面板中BevelEdgdes属性beleft/betop/beright=falsebebottom=trueBevellnner=bvnoneBevelKind=Bkflatbevelouter=bvraisedborderstryle=bsnonecolor=clBtnFace