如果我自己define左一個type,如colortype,當一個control選擇左那個control後,其實是代表著某一種color,請問可以嗎? 情況就像define了cbBlue,而system就知道那隻是藍色color,請問有方法嗎?

如果你去看Graphics.pas 中 clBlue定義

 const
 ....  
  clBlue = TColor($FF0000);
  ...

事實上clBlue定義只是Type cast為TColor的一組16位元值(RGB) 所以可以自己定義顏色值 不過你自己要查清楚顏色值的RGB 這可以使用一些顏色值查詢工具 自己定義顏色值參考他的作法就可以了 ex:

const
  clDefine1 = TColor($FF11FF);
  clDefine2 = TColor($FF12FF);

發表人 - chris_shieh 於 2005/01/14 15:45:28

那麼我的定義應該放在那裏?Graphic.pas嗎?

都可以 反正要不每次使用就在使用的Unit前面宣告 不然就是宣告在常用的單元中, 但是要 use 該單元 ＠瞭解越多.懂得越少＠

但如果我想在property,即design time時已可以輸入,應該怎樣?

屬性放置於published就可以了.

 
TYourControl = class()
published
  property YourColor: TColor read FYourColor write SetYourColor;
end;

 
procedure TYourControl.SetYourColor(const Value: TColor);
begin
  if Value <> FYourColor then
  begin
    FYourColor := Value;
    Invalidate;
  end;
end;    並改寫procedure TYourControl.Paint;以反應你的顏色改變.    

有點不明白,如果我想定義clMyColor是等於黑色,那麼clMyColor應該放在那處,grapics檔嗎? 之後我怎樣在自己的program當中pass了這個叫clMyColor呢? 如何寫clMyColor = Black????

放那裡都可以 反正要不每次使用就在使用的Unit前面宣告 不然就是宣告在常用的單元中, 但是要 use 該單元

//放在graphics.pas 中
uses ......graphics,.....     //放在程式中
const
  clMyColor = TColor($000000); 
....
....
....
  colorType:TColor; //宣告變數為TColor type    ....
...
  colorType:=clMyColor;//指定該變數為定義的clMyColor值    

發表人 - chris_shieh 於 2005/01/25 17:12:20