3

初めての FireMonkey アプリで遊んでいます。TRectangle のグリッドを作成しましたが、それぞれの色をプログラムで設定したいと考えています。終わったよ：

procedure TForm9.Button2Click(Sender: TObject);
var
  C : TRectangle;
  I : integer;
//const
//  Alpha = TAlphaColor($FF000000);
//  Red = Alpha or TAlphaColor($FF0000);

begin
  for I := 0 to ScaledLayout1.ChildrenCount-1 do
    begin
    If ScaledLayout1.Children[I] is TRectangle then
      begin
      C := Trectangle(ScaledLayout1.Children[I]);
      C.Fill.Color := Red; <<< ERROR
      C.Fill.Kind := bkSolid <<< ERROR;
      end;
    end;
end;

'unidentified identifier'定数 'Red' と 'bkSolid' を割り当てようとすると、'<< ERROR' でコンパイラ エラーが発生します。System.UITypes に移動し、上記のコメントアウトされた「const」のように「Red」をコピーすると、すべて機能します。しかし、「System.UITypes」は使用リストにあります。しようとしてもうまくいきC.Fill.Color := TAlphaColor.Redません。私は何を間違っているのでしょうか？ありがとう。

4

2 に答える 2

4

TAlphaColor はカーディナルの型であり、列挙型や定数ではありません。TAlphaColors.Red は機能しています (AlphaColorS の「s」に注意してください) または claRed です。bkSolid で TBrushKind.bkSolid を使用

于 2012-08-15T15:08:07.587 に答える
1

uses句に挿入

用途 System.UIConsts

そして、白ClaRedの代わりに赤 の代わりに使用するclawhiteなど..

そしてTBrushKind.bkSolid代わりにbksolid

于 2015-09-18T13:28:07.390 に答える