首先，附圖檔，這是對岸所找到的小程式！button1是原本它的，button2是我手按再加上個，

2個都有附圖跟改顏色的功能，就是bitmap及color的選項，如果不開它這個小程式就沒有這2個選項！why？

怕有人問原始源，所以附上！(另外，我用搜尋button 顏色，只找到用第三方控件的方法)所以困惑怎會沒有像小程式的方法呢？
另外如果須要小程式的全部，我再附上！！謝謝
[code delphi]
unit Unit1;
interface
uses
SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs,
QStdCtrls, QComCtrls;
type
TForm1 = class(TForm)
ProgressBar1: TProgressBar;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.xfm}
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
ProgressBar1.Step:=1;

ProgressBar1.Min:=0;
ProgressBar1.Max:=100;
ProgressBar1.Smooth:=True;
for i:=0 to 100 do
begin
case i of
0..25: ProgressBar1.FillColor:=clred;
26..50: ProgressBar1.FillColor:=clblack;
51..75: ProgressBar1.FillColor:=clBlue;
76..100: ProgressBar1.FillColor:=clYellow;
end;
ProgressBar1.StepIt;
sleep(100);
end;
end;
end.[/code]

------
資訊業是永遠不能停止學習的行業！
但是進步都只是一點點一點點！
==可以不用理我！因為我的程度只有2成，或許不到！！
==我只會拉拉元件，打打迴圈，打打條件判斷，連連資料庫，rs232送送訊號，印表機簡單列印。
只有寫寫小小的點餐軟體(為何想寫，因為叫人家改的小東西，都ooxx，是會付錢的又不是沒錢，但是理由還是一堆)

附加檔案：488d687aacdc8_1234.JPG

其實…有點困擾說~~~ 標題是問 Button 的顏色，但程式碼是 PO ProgressBar 的程式碼?
是我不理解您的問題嗎?

如果是問 Button 的顏色如何改，有個 TColorButton 可用，你看看是不是你的需求......

------
價值的展現，來自於你用哪一個角度來看待它!!

不是我要的需求！謝謝
post出來的是它全部碼！為何button會可以變色！你給的是第三方控件，有原來的可用，為何還要去掛其它的呢？除非有其它好用的部份(我會用到的)，才會掛上。

------
資訊業是永遠不能停止學習的行業！
但是進步都只是一點點一點點！
==可以不用理我！因為我的程度只有2成，或許不到！！
==我只會拉拉元件，打打迴圈，打打條件判斷，連連資料庫，rs232送送訊號，印表機簡單列印。
只有寫寫小小的點餐軟體(為何想寫，因為叫人家改的小東西，都ooxx，是會付錢的又不是沒錢，但是理由還是一堆)

編輯記錄

===================引 用 heartgame0 文 章===================
不是我要的需求！謝謝
post出來的是它全部碼！為何button會可以變色！
因為有在 Canvas 上面畫顏色呀~~

你給的是第三方控件，有原來的可用，為何還要去掛其它的呢？
當然是原本的不能用才掛第三方的，他這個 TColorButton 也是把 Button 沒有弄出來的顏色部份把他弄出來而已

除非有其它好用的部份(我會用到的)，才會掛上。
他裡面有只有這個 pas 檔而已，也沒其他的了，但是聽起來你好像很討厭掛元件??

不過，我還是不懂你指的小程式是指什麼???
跟上面你 Po 出來的 程式碼有什麼關係?????

第三方元件出現的原因，就是在彌補原本元件的不足，強化與加速專案的開發，但你有看過第三方的元件 Source 嗎?? 哪一個不是從 Delphi 的元件發展上來的???

------
價值的展現，來自於你用哪一個角度來看待它!!

編輯記錄

===================引 用 careychen 文 章===================
===================引 用 heartgame0 文 章===================
不是我要的需求！謝謝風
post出來的是它全部碼！為何button會可以變色！
因為有在 Canvas 上面畫顏色呀~~
嗯！如果是你說的canvas，那就是我要的，但是我要去查它的用法(及是不是真的我要的)，如果簡易教學讓我了解(調用成功)，就非常感謝！

你給的是第三方控件，有原來的可用，為何還要去掛其它的呢？
當然是原本的不能用才掛第三方的，他這個 TColorButton 也是把 Button 沒有弄出來的顏色部份把他弄出來而已
是看到別人有可以用的，所以才困惑為何大家不像他直接用，都說第三方控件。


除非有其它好用的部份(我會用到的)，才會掛上。
他裡面有只有這個 pas 檔而已，也沒其他的了，但是聽起來你好像很討厭掛元件??
討厭是還不至於，我用com1送訊號，就要掛spcom(不是全名)。只是軟體上面一排這麼多東西可用，還要掛，還沒有寫多麼強大的軟體。(目前快完成點餐軟體，不知道看書、爬文用了一年有沒有，真正查資料寫的時間，絕對沒超一個月，指時數，2個禮拜也沒有吧，要工作加班帶小孩)(花較多時間在4、5個功能上)目前在美化軟體跟報表，所以問button顏色！！！！！

不過，我還是不懂你指的小程式是指什麼??? 我附圖有畫面，是寫一個進度條在跑的小程式。
跟上面你 Po 出來的 程式碼有什麼關係????? 怕有人問我那裡看到可變色的button，碼的內容有什麼！

第三方元件出現的原因，就是在彌補原本元件的不足，強化與加速專案的開發，但你有看過第三方的元件 Source 嗎??
有，就是spcom這個source，應該不是從delphi元件發展上來的，不過並沒有全看完，所以不敢說，我說的對，只是感覺上不是。
哪一個不是從 Delphi 的元件發展上來的???

------
資訊業是永遠不能停止學習的行業！
但是進步都只是一點點一點點！
==可以不用理我！因為我的程度只有2成，或許不到！！
==我只會拉拉元件，打打迴圈，打打條件判斷，連連資料庫，rs232送送訊號，印表機簡單列印。
只有寫寫小小的點餐軟體(為何想寫，因為叫人家改的小東西，都ooxx，是會付錢的又不是沒錢，但是理由還是一堆)

編輯記錄

...........  這.... 嗯，真是辛苦了，如果 Canvas 能解開你的困惑就好了，加油~~~!!!

------
價值的展現，來自於你用哪一個角度來看待它!!

CLX Application 
自己 New -> CLX Application 就知道。

詳細請查閱 HELP 或書籍

嗯！這就是真正的答案，

這樣看來，

並沒有很多人知道。還是沒看懂我給的東西。
謝啦！給分

我還要知道為何大家不是用CLX,或許看過help或書籍後就可能知道了吧！


===================引 用 RootKit 文 章===================
CLX Application
自己 New -> CLX Application 就知道。

詳細請查閱 HELP 或書籍

------
資訊業是永遠不能停止學習的行業！
但是進步都只是一點點一點點！
==可以不用理我！因為我的程度只有2成，或許不到！！
==我只會拉拉元件，打打迴圈，打打條件判斷，連連資料庫，rs232送送訊號，印表機簡單列印。
只有寫寫小小的點餐軟體(為何想寫，因為叫人家改的小東西，都ooxx，是會付錢的又不是沒錢，但是理由還是一堆)

編輯記錄

原來如此，只是… 我知道是 clx 元件是 跨平台系統使用的，
但小弟是用 Delphi 2007 已經沒有 CLX Application 可以 new 了，連 Help 也沒了
Kylix 系統到了 3.0 就不再發展，小弟也沒有再繼續使用下去，
也許維護困難所以之後就沒有再發展了

只是小弟本來是想解決問題的，卻感覺被刮了一頓，不過我也學到了，謝謝你

===================引 用 heartgame0 文 章===================
嗯！這就是真正的答案，

這樣看來，

並沒有很多人知道。還是沒看懂我給的東西。
謝啦！給分

我還要知道為何大家不是用CLX,或許看過help或書籍後就可能知道了吧！

------
價值的展現，來自於你用哪一個角度來看待它!!

編輯記錄

是喔！kylix不再發展了喔！本想這軟體寫完，要試linux，那就省原版作業系統了！
真是的，還是會想辦法看linux有無其它方法。

提早知道了，不然等我要寫linux時，才會知道吧！

我忘了打7版，不過，我有附圖檔，它有7版的畫面跟字。

===================引 用 careychen 文 章===================
原來如此，只是… 我知道是 clx 元件是 跨平台系統使用的，
但小弟是用 Delphi 2007 已經沒有 CLX Application 可以 new 了，連 Help 也沒了
Kylix 系統到了 3.0 就不再發展，小弟也沒有再繼續使用下去，
也許維護困難所以之後就沒有再發展了

只是小弟本來是想解決問題的，卻感覺被刮了一頓，不過我也學到了，謝謝你

------
資訊業是永遠不能停止學習的行業！
但是進步都只是一點點一點點！
==可以不用理我！因為我的程度只有2成，或許不到！！
==我只會拉拉元件，打打迴圈，打打條件判斷，連連資料庫，rs232送送訊號，印表機簡單列印。
只有寫寫小小的點餐軟體(為何想寫，因為叫人家改的小東西，都ooxx，是會付錢的又不是沒錢，但是理由還是一堆)

嗯嗯，加油唷~~! 

------
價值的展現，來自於你用哪一個角度來看待它!!