질문하시는 거야 질문답변 게시판인데 염치없을 실 필요가^^

여하튼..
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;
처럼하는 것이 더 좋지 않을 까 합니다..


Voice of Delphi, 류..

남바다 님이 쓰신 글 :
: 안년하세요 건강하시죠?
: 다름이니고요.
: 페널의 칼라(적,녹색)를 외부(com1 port)에서 데이타값이날라오는동안은 페널의칼라값이
: 적색이 캄박캄박,날라오는값이 없으면 녹색으로 표현하고싶은데 잘안되네요..
: 구현방법을 부탁합니다..(염치없음)^^
: