請教各方前輩: 我在書面上放了十個BitBtn時,其中1至6個BitBtn的OnClick事件裡我寫了以下改底變色的程式,但..有一個奇怪的狀況,但我按下前六個BitBtn時,雖然會正確改變為我所要的底色,但...按了另外的BitBtn按鈕時,又會變為原來的底色了,最令我百思不解的是,為什麼7至10的BitBtn鈕,我根本沒有在OnClick事件中寫入任何程式碼,為什麼....依然會將1至6的BitBtn鈕變為原來的底色.....?? procedure Tmain.BitBtn1Click(Sender: TObject); var AText: string; APoint: TPoint; ARect: TRect; ACanvas: TCanvas; begin ACanvas := TCanvas.Create; with ACanvas do begin try Handle := GetDC(TBitBtn(Sender).Handle); Brush.Color := clLime; ACanvas.Font := (Sender as TBitBtn).Font; AText := TBitBtn(Sender).Caption; ARect := TBitBtn(Sender).ClientRect; with ARect do begin APoint.X := (Right - Left) div 2 - TextWidth(AText) div 2; APoint.Y := (Bottom - Top) div 2 - TextHeight(AText) div 2; TextRect(ARect, Left APoint.X, Top APoint.Y, AText); end; finally ACanvas.Free; end; end; end;

jojoboy 你好 1.改變底色的程式碼是在OnClick事件中,因此只會在OnClick時改變底色 ,當有別的事件發生時(失去焦點時、畫面更新時.....)它就不知道你要改為什麼顏色，所以它還是clBtnFace的顏色來填色(*)。 2.為了讓按鈕的底色持續有效，你必須改寫元件,增加一個底色的屬性並開放出來(你才可以在屬性檢視器中設定值)，然後在相關事件程序中來更改顏色。 * ps:按bitbtn1時觸發onClick事件所以它有改變顏色,同時也取得焦點 但按bitbtn7時,則bitbtn7取得焦點,而bitbtn1卻失去焦點了,此時bitbtn1就被改回原來的顏色了。或是把視窗縮小再還原也是一樣改回原來的樣子。

感謝前輩的回答....... 但........有一個疑問..... 因為我有做快速鍵的功能, 所以我利用PopupMenu來搭配此功能,但有一個奇怪的現像.. 當我利用PopupMenu中的Item的OnClick事件中寫入以下程式碼時.. 顏色就不會在失去焦點時變回原來的顏色......... 不知道是為什麼?? procedure Tmain.N11Click(Sender: TObject); begin BitBtn1Click(Main.BitBtn1); end;

引言: procedure Tmain.N11Click(Sender: TObject); begin BitBtn1Click(Main.BitBtn1); end;

jojoboy 你好 當滑鼠按下Bitbtn的時候，對於Bitbtn來說,它會處理很多事情,諸如按鈕內部狀態的改變,視覺畫面重繪、取得焦點及觸發OnClick的事件等等,而OnClick事件(是一個程序)只是諸多動作中的一件事而已，而你在Popmenu中執行BitbtnClick(),也僅是執行該程序罷了，並沒有執行到按鈕按下時所引發的諸多事件，且該按鈕也並未取無點，所以也不會有失去焦點的事件發生

謝謝前輩的回應..... 讓我又長了知識增了智慧...... Thanks