有这样一个例子
假如在 form1上有edit1,edit2,edit3 三个文本框 我在edit1控件下面写这个事件,edit2,edit3没有写事件 当edit1获得焦点时变为兰色 失去焦点时变为系统色 但是edit2和edit3 得到焦点和失去焦点时没反映 请问高手是怎么回事啊?
procedure TForm1.Edit1Enter(Sender: TObject);
begin
(Sender as TEdit).color:=ClTeal; //得到输入焦点
end;procedure TForm1.Edit1Exit(Sender: TObject);
begin
(Sender as TEdit).color:=ClWindow; //失去输入焦点
end;