Q&A

  • 타이머를 첨 써봐요..
안녕하세요.

타이머를 거의 처음써봐서요..

레이블을 깜박깜박하게 만들려구 하는데 잘 안돼서요..



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이벤트에 위처럼 했는데

멀 잘못했는지 좀 알려주세요..



즐코하세용~

1  COMMENTS
  • Profile
    홍성락 2001.09.14 23:58
    민 wrote:

    > 안녕하세요.

    > 타이머를 거의 처음써봐서요..

    > 레이블을 깜박깜박하게 만들려구 하는데 잘 안돼서요..

    >

    > 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;