如題       謝謝

在 OnEnter 中設定即可 ...Aquarius

------
水瓶男的blog: http://791909.blogspot.com

 
if edit1.lostfocuse then 
  edit1.backcolor=xxx
else
  edit1.backcolor=yyy;
 

======================================= 為學日益，為道日損，損之又損，以致於無。為無為，而無不為。

Hi,    補充一下 如 aquarius 大大所言，於 TEdit 的 OnEnter 事件更改顏色(進入)，並於 OnExit 事件還原顏色(離開)

procedure TForm1.Edit1Enter(Sender: TObject);
begin
    Tedit(Sender).Color := clMoneyGreen
end;    procedure TForm1.Edit1Exit(Sender: TObject);
begin
    Tedit(Sender).Color := clWindow;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

引言: 如題 謝謝 < face="Verdana, Arial, Helvetica"> 補充 下載這個元件, 不用改任何程式碼就可以做到你要的功能 http://delphi.ktop.com.tw/topic.php?topic_id=38038