在delphi中如何改变 EDIT文本框边框的颜色 谢谢高手了!!!

EDIT文本框本身是不能改变边框颜色的。我扒团这里有一个笨拙的方法。不知道是否能帮到你友此禅。

可以借用additional页中的shape，用矩形.

因为shape有pen 和brush属性好尘。你可以把它们的属性都调成一样的颜色。然后把edit放到它的上面。适当调整shape的大小。

这个有难度，如你说的神枯得重画控件或自制控件，有一个flatstyle控件，能改变边框的颜色，但好像没有TreeView、RichEdit。

我只能做到给你的游闹洞控件加一个黑色的边框，用ComboBox举例弯御吧：

procedure TForm1.FormPaint(Sender: TObject)

begin

form1.Canvas.pen.color:=clblack

form1.Canvas.pen.width:=3

form1.Canvas.polyline([point(ComboBox1.left,ComboBox1.top),

point(ComboBox1.left+ComboBox1.width,ComboBox1.top),

point(ComboBox1.left+ComboBox1.width,ComboBox1.top+ComboBox1.height),

point(ComboBox1.left,ComboBox1.top+ComboBox1.height),

point(ComboBox1.left,ComboBox1.top)])

end

晕，这个问题有点初级！

比方说在form10上：

form10.Canvas.pen.color:=clblack

form10.Canvas.pen.width:=3

form10.Canvas.polyline([point(ComboBox1.left,ComboBox1.top),

point(ComboBox1.left+ComboBox1.width,ComboBox1.top),

point(ComboBox1.left+ComboBox1.width,ComboBox1.top+ComboBox1.height),

point(ComboBox1.left,ComboBox1.top+ComboBox1.height),

point(ComboBox1.left,ComboBox1.top)])

---