用起来还真的挺麻烦.
1 const
2 ColorPrefix = 'Color';
3
4 var
5
6 i: integer;
7
8 begin
9
10 for i := 0 to 15 do
11
12 ColorDialog1.CustomColors.Values[ColorPrefix + Char(Ord('A') + i)] := IntToHex(Color_Ary[i], 8);
13
14 end;
用起来还真的挺麻烦.
1 const
2 ColorPrefix = 'Color';
3
4 var
5
6 i: integer;
7
8 begin
9
10 for i := 0 to 15 do
11
12 ColorDialog1.CustomColors.Values[ColorPrefix + Char(Ord('A') + i)] := IntToHex(Color_Ary[i], 8);
13
14 end;
转载于:https://www.cnblogs.com/solokey/archive/2011/07/21/2113335.html