Tag는 컬러하고 무관합니다..
Tag는 별로 의미없는 프로퍼티로 모든 콤포넌트에 있습니다..
이것을 활용해서 방금 어떤 색이 었는 지 알게되는 것을..
간편화 했습니다..
1과 0은 xor로 반복되니.. 반복 처리가 쉽겠지요..

그리고 Tag > 10의 의미는..
시그널이 안들어오더라도 10번의 인터벌까지는 깜박인다는 뜻입니다..
시그널이 들어오는 텀이 길면..
깜박임이 부자연스러울 듯 해서요..


Voice of Delphi, 류..


남바다 님이 쓰신 글 :
: 류종택 님이 쓰신 글 :
: : 질문하시는 거야 질문답변 게시판인데 염치없을 실 필요가^^
: :
: : 여하튼..
: : TTimer를 사용하시면 간단할 것 같은데염..
: :
: : procedure TForm1.Timer1Timer(Sender: TObject);
: : begin
: :   Timer1.Tag:= Timer1.Tag  xor 1;
: :   If Timer1.Tag = 1 then Panel1.Color:= clRed
: :   Else  Panel1.Color:= clGreen;
: :
: :   // 얼마 이상 시그날이 안오면 멈출 것인가?
: :   Tag:= Tag + 1;
: :   If Tag > 10 then Timer1.Enabled:= False;
: : end;
: :
: : 시그널이 들어올 때..
: :   Tag:= 0;
: :   Timer1.Enabled:= True;
: :
: : 사실 시그널이 들어올 때 마다..
: :   Panel1.Tag:= Panel1.Tag  xor 1;
: :   If Panel1.Tag = 1 then Panel1.Color:= clRed
: :   Else  Panel1.Color:= clGreen;
: : 처럼하는 것이 더 좋지 않을 까 합니다..
:
: Panel1.Tag를(을) 구현하셨는데  Panel1.Color로쓰는것과비교 설명부탁합니다..
: 그리고 If Tag > 10 Then...여기서 10 은무엇을 의미합니까..
: 항상 행복하세요...  
: :
: :
: : Voice of Delphi, 류..
: :
: : 남바다 님이 쓰신 글 :
: : : 안년하세요 건강하시죠?
: : : 다름이니고요.
: : : 페널의 칼라(적,녹색)를 외부(com1 port)에서 데이타값이날라오는동안은 페널의칼라값이
: : : 적색이 캄박캄박,날라오는값이 없으면 녹색으로 표현하고싶은데 잘안되네요..
: : : 구현방법을 부탁합니다..(염치없음)^^
: : :