Q&A

  • 인터벌을 두고 에디트 박스에 입력하기
안녕하세요

제가 하고자 하는것

  에디트 박스3개가 있는데요  Edit1, Edit2, Edit3

  버튼을 클릭하면

  맨먼저 Edit1에 '1'을 할당하고

  2초후에 Edit2에 '2'를 할당하고

  4초후에 Edit3에 '3'을 할당하려고 합니다.

  그니까..사용자눈엔 버튼클릭하면 에디트 박스 3개에 2초간격으로
   값이 어사인되는게 볼수있겠죠????

   부탁합니다..고수여러분들
이 게시물을
1  COMMENTS
  • Profile
    최용일 • 2002.03.13 23:04
    안녕하세요. 최용일입니다.

    TTimer컴포넌트 하나 놔두고 Interval을 2초로 Enabled를 False로 해놓고 버튼의 OnClick이벤트와 타이머의 OnTimer이벤트에 아래와 같이 하시면 되겠네요...

    procedure TForm1.Timer1Timer(Sender: ...);
    begin
        case Timer1.Tag of
            0: Edit1.Text := '1';
            1: Edit2.Text := '2';
            2:
            begin
                Edit3.Text := '3';
                Timer1.Enabled := False;
            end;
        end;
        Timer1.Tag := Timer1.Tag + 1;
    end;

    procedure TForm1.Button1Click(Sender:...);
    begin
        Timer1.Tag := 0;
        Timer1.Enabled := True;
    end;

    ^^ 항상 즐코하세요...
←First Page
1095 1096 1097 1098 1099 1100 1101 1102 1103 1104
Last Page→
한델 로그인 하기