如何让dbedit的显示获得焦点的时候有边框，否则没有边框

Question

如何让dbedit的显示获得焦点的时候有边框，否则没有边框
当用户点击相应的dbedit时候让它有边框，离开它是不显示编筐，这是起码的用户界面问题，我不会！

Answer 1

在他的BorderStyle 属性里面设置为bsNone!

Answer 2

procedure Tform1.DBEdit1Exit(Sender: TObject);
begin
  dbedit1.BorderStyle:=bsnone;
end;procedure Tform1.DBEdit1Click(Sender: TObject);
begin
  dbedit1.BorderStyle:=bssingle;
end;

Answer 3

procedure TForm1.DBEdit1Enter(Sender: TObject);
begin
  DBEdit1.BorderStyle:=bsSingle;end;procedure TForm1.DBEdit1Exit(Sender: TObject);
begin
  DBEdit1.BorderStyle:=bsNone;
end;

Answer 4

procedure TForm1.DBEdit1Enter(Sender: TObject);
begin
dbedit1.BorderStyle:=bssingle;
end;procedure TForm1.DBEdit1Exit(Sender: TObject);
begin
dbedit1.BorderStyle:=bsnone;
end;

Answer 5

我试过下边的代码！
procedure TForm1.DBEdit1Enter(Sender: TObject);
begin
dbedit1.BorderStyle:=bssingle;
end;procedure TForm1.DBEdit1Exit(Sender: TObject);
begin
dbedit1.BorderStyle:=bsnone;
end;不行，当我点击dbedit1时，它不见了，不显示了。为什么？

Answer 6

点击dbedit1时,它不见了???!!!
没碰到这种情况.

Answer 7

procedure TForm1.DBEdit1Enter(Sender: TObject);
改为
procedure TForm1.DBEdit1click(Sender: TObject);

Answer 8

你是不是把Color设置成和窗体一样了?

Answer 9

这样设置，好象dbedit1的内容更改不了，

Answer 10

试过了，就是不行啊！一点击，就不见了，why?

Answer 11

我跟踪了一下，就是再onexit事件里加入showmessage('exit'),发现，第一次点击的时候，它就触发了onexit事件，这是不对的啊！为什么？是不是dbehlib的bug?

Answer 12

你在 Object Inspect 中的 Events 中看一看，是不是把 OnEnter 和 OnExit 两个事件的处理程序搞反了

Answer 13

我试过，如果是edit就可以,dbedit好像不行！