컴포넌트의 속성값을 형변환하여 적용할 수 있을까요?

Question

Edit1 을 예로 들어 아래와같이 정상적인 방법으로 색상을 바꾸는

방법외에 Edit1.Color := clWindow;

이렇게 문자열이나 숫자로 이뤄진 변수에 담긴 값을 속성으로 지정하려고 합니다.

Edit1.Color := 배열[1];

이렇게 형변환을 해서 넣어야 할듯 합니다만 어떤 방법으로 형변환을 해야 할지 잘 모르겠네요.

Edit1.Color := StrToInt(배열[1]);

Answer 1

안녕하세요?

질문에 대한 답변을 드리자면 Color형은 integer와 다르기때문에 예제를 보여드리겠습니다

varColors: array[0..3] of TColor = (clred, clblue, clgreen, $00DDBBFF); procedure TForm2.Button1Click(Sender: TObject); begin Edit1.Color := Colors[3]; end;