怎樣改變 TEdit 的背景顏色?

Question

有办法，你自己做一个组件，当然了，是TEDIT的子类，然后写好onenter和onexit事件，然后你要用的时候只要直接用就行了，不用一个个的写了

Answer 1

如果是tdbedit 也是一樣的嗎?

Answer 2

遍历整个窗口的组件，只要是TEdit就改变颜色不久可以了

Answer 3

什么意思啊？直接在color属性里改不就行了，为什么要用事件啊？

Answer 4

大家也許還沒有明白我的意思! 我是說當tedit 得到焦點時, 變為一個顏色, 當失去時, 又恢復後以前狀態!

Answer 5

在某个edit（如edit1）的onenter和onexit里用sender
如: (sender as TEdit).Color:=...
然后选中其他edit，在onenter中下拉事件中选择Edit1Enter即可

Answer 6

你把小虫的和曾经的结合起来就可以了.
1 声明一个类或直接用一个EDIT(visible=false)，为Tedit类型的.2 为这个TEDIT写好事件3 为所有的需要变色的EDIT 的ONENTER 中选择你写好的时间名
  或写一句代码，表示每次时间触发调用写的事件
  在写的通用事件里用SENDER 判断当前调用对象，然后将其强制转换为TEDIT
  然后就可以了。

Answer 7

最简单的办法，用FlatEdit控件
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！★  浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。
★  可以直接发贴、回复帖子★  采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！ 
★  支持在线检测程序升级情况，可及时获得程序更新的信息。★★ 签名  ●  
     可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe    [自解压]

Answer 8

我有一个问题，那就是，当你离开EDIT时，你不加入事件，那么EDIT的颜色如何恢复呀************
* 努力学习 *
*   全为   *
*￥人民币￥*
************

Answer 9

edit1的Enter和Exit事件里分别写如下：
procedure TForm1.Edit1Enter(Sender: TObject);begin
     (sender as TEdit).Color:= clwhite;
end;procedure TForm1.Edit1Exit(Sender: TObject);
begin
     (sender as TEdit).Color:= clyellow;
end;然后在其他的Edit的OnEnter事件里选择Edit1Enter
                  OnExit事件里选择Edit1Exit

Answer 10

http://www.playicq.com/dispdoc.php?t=&id=929下载这个增强控件！完全是你想要的，有源代码。哈哈，我要满分！

Answer 11

如果你是嫌写得太罗索，所有事件可以共用一个过程：
procedure OnmyExit(Sender:TObject);
begin
    TEdit(Sender).Font.Color := clWhite
end;procedure OnmyEnter(Sender:TObject);
begin
    TEdit(Sender).Font.Color := clblue;
end;然后把所有的Edit的OnExit设为OnmyExit，所有OnEnter设为OnmyEnter。