Q&A
- 타이머 정지 문제
procedure TForm1.Edit1Change(Sender: TObject);
var
ret_msg : word;
begin
case radiogroup1.ItemIndex of
0: begin
if plannum <= count1 + 1 then
begin
timer1.Enabled := false;
timer2.Enabled := false;
ret_msg := Messagedlg('일정한 수에 도달했습니다. 타이머를 정지합니다.',mtinformation,[mbOK],0);
if ret_msg = mrOK then
timer1.Enabled := false;
timer2.Enabled := false;
end;
-------------------------------------------
여기서
timer1.Enabled := false;
timer2.Enabled := false;
가 말을 듣지 않습니다. 메세지dlg OK누르기 전에는 타이머가 정지하지만, OK누르고 Messagedlg가 사라진후에는 타이머가 다시 작동합니다.
var
ret_msg : word;
begin
case radiogroup1.ItemIndex of
0: begin
if plannum <= count1 + 1 then
begin
timer1.Enabled := false;
timer2.Enabled := false;
ret_msg := Messagedlg('일정한 수에 도달했습니다. 타이머를 정지합니다.',mtinformation,[mbOK],0);
if ret_msg = mrOK then
timer1.Enabled := false;
timer2.Enabled := false;
end;
-------------------------------------------
여기서
timer1.Enabled := false;
timer2.Enabled := false;
가 말을 듣지 않습니다. 메세지dlg OK누르기 전에는 타이머가 정지하지만, OK누르고 Messagedlg가 사라진후에는 타이머가 다시 작동합니다.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 김종균
- •
- 2004.11.16 07:56
- 2 COMMENTS
- /
- 0 LIKES
-
석주현•2004.11.16 18:08그냥 Edit 와 updown VCL 을 이용해서 코딩을 해줘야 할거 같네요. Edit에서 커서 위치에 따라서 시간 분 ... -
김종균•2004.11.17 06:14SpinEdit에서 커서위치를 어떻게 아는지요... 예제 있으면 올려
-
- 양기태
- •
- 2004.11.16 06:16
- 1 COMMENTS
- /
- 0 LIKES
-
이두형•2004.11.16 08:11제 생각엔 배열에 랜덤하게 직접 이미지를 넣는 방법보다, (근데 위 방법으로 랜덥하게 이미지를 선택해야...
-
- 최연진
- •
- 2004.11.16 02:11
- 1 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2004.11.16 23:24안녕하세요 하얀까마귀 입니다. 아주 오래전 도스에서 png포맷으로 프로그램을 만든 기억이 ㅎㅎㅎ ...
-
- 최성욱
- •
- 2004.11.16 01:47
- 4 COMMENTS
- /
- 0 LIKES
-
id0313•2005.05.20 18:25늦게나마 답변.. 한동안 아무 생각없이 String에 255개 이상의 문자를 대입하면 에러가 난다고 알고서 코...
-
신동호•2004.11.17 07:07sql문 자체가 TStringList 객체로 되어 있습니다. 그러므로 sql문은 한개의 Text 화일이라고 볼 수 있습니...
-
한원희•2004.11.16 05:12안녕하세요. 한원희입니다. 쿼리의 길이는 상관이 없는 것으로 알고 있습니다. 제가 여태까지 ADO를 사...
-
모영철•2004.11.16 03:45전에 1000줄 정도 되는 쿼리를 ADO가 아닌 BDE를 이용해서 날리는데요.. 정확히 몇글자 인지 모르겠지만...
-
- 최수림
- •
- 2004.11.16 00:58
- 2 COMMENTS
- /
- 0 LIKES
-
이정관•2004.11.16 01:08uses절에 ComCtrls넣어주세요.
-
최수림•2004.11.16 01:09
-
- 우용우
- •
- 2004.11.15 23:44
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2004.11.17 22:08안녕하세요. 최용일입니다. 아는 방법은 없을거 같은데요... 소켓을 오픈한다고 해도 공유기로 데이...
-
- 하수경
- •
- 2004.11.15 22:14
- 1 COMMENTS
- /
- 0 LIKES
-
정정봉•2004.11.16 17:31처음 에러는 쿼리문장이 잘못 코딩이 된것 같구요. 두번째 에러는 Key값 중복 발생 에러 인것 같네요.
-
- 델피언
- •
- •
- 2004.11.15 21:33
- 1 COMMENTS
- /
- 1 LIKES
procedure TForm1.Edit1Change(Sender: TObject); var ret_msg : word; begin case radiogroup1.ItemIndex of 0: begin if plannum <= count1 + 1 then begin timer1.Enabled := false; timer2.Enabled := false; ret_msg := Messagedlg('...-
한원희•2004.11.16 05:15안녕하세요. 한원희입니다. 아마도 IF 문 다음에 BEGIN ... END를 하지 않아서 그런것이 아닐까요??? ...
-
- ㉳㉥ㅗ㉣ㅐ㉧ㅛ
- 2004.11.15 21:30
- 0 COMMENTS
- /
- 0 LIKES
-
- 김종균
- •
- 2004.11.15 20:50
- 3 COMMENTS
- /
- 0 LIKES
-
이정관•2004.11.15 21:30showhint를 true로 하셨나요? 툴바에 버튼 등을 추가했다면 툴바의 힌트와 툴버튼의 힌트를 따로 지정해...
-
김종균•2004.11.15 21:40showhint는 ture입니다. 델파이7을 다시 설치했는데 그러네요
-
이정관•2004.11.16 18:39델파이를 새로 설치해도 그런다면 대체로 난감ㅡㅡ;;
-
- 소원석
- 2004.11.15 20:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 김정현
- •
- 2004.11.15 20:01
- 4 COMMENTS
- /
- 0 LIKES
-
이정관•2004.11.15 21:22if Pan_ProjectCode1.Caption = '' then -> String문자가 아무것도 없을때 &...
-
김정현•2004.11.15 21:52제가 올려놓은 원문을 보면 SELECT ProjectCode,KorProjectName 이문장을 SQL 에 ...
-
이정관•2004.11.15 22:18gsProjectCodeTable은 String변수입니다. 즉 변수라서 지정하가 나름이죠. 그리고 LIKE ''' + '%' + Edt_K...
-
김정현•2004.11.15 23:02
-
- 초보임당
- 2004.11.15 19:23
- 0 COMMENTS
- /
- 0 LIKES
-
- 황하성
- •
- 2004.11.15 18:40
- 1 COMMENTS
- /
- 0 LIKES
-
nilriri™•2004.11.16 22:05무슨 작업을 하시려고 그러시는지 모르겠네요..^^; 디비 그리드에 서로 다른 테이블의 내용을 사용자 선...
-
- 이두형
- •
- 2004.11.15 11:23
- 7 COMMENTS
- /
- 0 LIKES
-
한원희•2004.11.15 19:34
-
이정관•2004.11.15 18:55
-
이두형•2004.11.16 08:34
-
이정관•2004.11.16 18:33
-
이두형•2004.11.16 22:09
-
이정관•2004.11.16 22:32
-
이두형•2004.11.17 01:35
-
- 노명환
- •
- 2004.11.15 10:31
- •
- 4 COMMENTS
- /
- 0 LIKES
-
이정관•2004.11.15 19:33예전에 퀵레포트 했던 경험으로는 이런 경우에 대해서 두가지 방법이 있었던것 같네요. 첫번째는 Query에 ...
-
이정관•2004.11.15 20:38두번째방법의 소스입니다.
-
노명환•2004.11.15 22:59답변 고맙습니다. 그런데 첨부하신 예제 프로그램에서 페이지 수가 무한정 늘어나 버리는데요. 뭐가 잘 ...
-
이정관•2004.11.16 01:00MsSQL2000서버의 Northwind의 Orders테이블을 연결해서 사용한 겁니다. TDataBase와 TQuery를 수정해서 ...
-
- 안중태
- 2004.11.15 01:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 임석민
- •
- 2004.11.13 17:24
- 1 COMMENTS
- /
- 0 LIKES
-
김정현•2004.11.15 18:33딱히 답변은 아니구요...^^ 예를 들어 환경설정 파일같은거나 게임환경정보를 저장해놓은....그런거... ...
-
- 가딘
- •
- 2004.11.13 08:02
- 2 COMMENTS
- /
- 0 LIKES
-
nilriri™•2004.11.15 21:57Self가 QReport라면.. 여기에서 구한 m이 필드명이 나온다면.. m:= tqrdbtext(components[i]).Caption;...
-
가딘•2004.11.16 20:14답변 감사하구요 문제는 디테일 밴드의 출력된 모든 값을 가지고와서 엑셀로 저장을 할려고 합니다. 쿼...
-
- 나그네
- •
- 2004.11.13 05:33
- 2 COMMENTS
- /
- 0 LIKES
-
구자균•2005.02.03 19:22프린터를 일단 공유를 시켜요.영수증프린터는 삼보 570으로 잡고 공유시켜요. 다른 피시에서 네트웍공유...
-
하얀까마귀•2004.11.19 19:39안녕하세요 하얀까마귀 입니다. 먼저 LTP1이란 이름은 포트명이므로 이 이름은 쓸수 없습니다. 당...
아마도 IF 문 다음에 BEGIN ... END를 하지 않아서 그런것이 아닐까요???
if ret_msg = mrOK then
BEGIN
timer1.Enabled := false;
timer2.Enabled := false;
END;
그럼, 즐프~