안녕하세요.
타이머를 거의 처음써봐서요..
레이블을 깜박깜박하게 만들려구 하는데 잘 안돼서요..
while i < timer1.Interval do
begin
if gu = 1 then
begin
label1.Visible := false;
gu := 2;
end
else
begin
label1.visible := true;
gu := 1;
end;
i := i + 1;
end;
timer이벤트에 위처럼 했는데
멀 잘못했는지 좀 알려주세요..
즐코하세용~
> 안녕하세요.
> 타이머를 거의 처음써봐서요..
> 레이블을 깜박깜박하게 만들려구 하는데 잘 안돼서요..
>
> while i < timer1.Interval do
> begin
> if gu = 1 then
> begin
> label1.Visible := false;
> gu := 2;
> end
> else
> begin
> label1.visible := true;
> gu := 1;
> end;
>
> i := i + 1;
> end;
>
> timer이벤트에 위처럼 했는데
> 멀 잘못했는지 좀 알려주세요..
>
> 즐코하세용~
////////////////////////////////////////////////////////////////
단순히 깜박거리게 한다면 아래처럼 코딩해보세요
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Visible := not(Label1.Visible);
end;
이벤트줄때는
Timer1.Interval := 500;
Timer1.Enabled := True;
끌때는
Timer1.Enabled := False;