关于EDIT组件的两个小问题，在线等待，不吝赐教！

Question

1.Edit框有个属性BiDiMode: TBiDiMode;

Answer 1

我帮你试了一下
把边框属性BevelEdges中除了beBottom之外，全设置为False,再把BevelInner设置为bvRaised，BevelKind设置为bkSoft,BevelOuter设置为bvNone即可实现第二种效果。

Answer 2

利用划线的方法实现二种效果，代码如下：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
begin
     edit1.BorderStyle:=bsNone;
     edit1.Color:=clMenu;
end;procedure TForm1.FormPaint(Sender: TObject);
begin
      canvas.MoveTo(edit1.left,edit1.top+edit1.height);
      Canvas.LineTo(edit1.left+edit1.width,edit1.top+edit1.height);
end;end.

Answer 3

测试结果：
1。修改BiDiMode之后，无任何反映
2。把边框属性BevelEdges中除了beBottom之外，全设置为False,再把BevelInner设置为bvRaised，BevelKind设置为bkSoft,BevelOuter设置为bvNone
再加上：
color=clmemu
borderstyle=benono
即可实现第二种效果。

Answer 4

在Onkeypress中写以下代码
insert(key,edit1.text,1);