Q&A
- Re: while문을 도는 동안 ESC키가 입력되면 빠져나가도록 하려면?
1. Form의 KeyPreview를 true로 한다.
2. 전역변수나 Form1의 멤버로 ESCKey를 선언한다.
var
ESCKey: Boolean;
3. FormCreate에서 ESCKey := false로 한다.
procedure TForm1.FormCreate(Sender: TObject);
begin
ESCKey := false;
end;
4. ESC를 쳤을 때 ESCKey에 true로 변경한다.
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = 27 then
ESCKey := true;
end;
5. while문을 돌릴 때 Application.ProcessMessage를 넣는다.
begin
while not ESCKey do
begin
// 필요한 작업
Application.ProcessMessages;
end
end;
최민서 wrote:
> while문을 도는도중 ESC키 값이 들어왔을때 빠져나가는 방법좀 알려주세요.
>
>
2. 전역변수나 Form1의 멤버로 ESCKey를 선언한다.
var
ESCKey: Boolean;
3. FormCreate에서 ESCKey := false로 한다.
procedure TForm1.FormCreate(Sender: TObject);
begin
ESCKey := false;
end;
4. ESC를 쳤을 때 ESCKey에 true로 변경한다.
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = 27 then
ESCKey := true;
end;
5. while문을 돌릴 때 Application.ProcessMessage를 넣는다.
begin
while not ESCKey do
begin
// 필요한 작업
Application.ProcessMessages;
end
end;
최민서 wrote:
> while문을 도는도중 ESC키 값이 들어왔을때 빠져나가는 방법좀 알려주세요.
>
>
0
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 알고싶어요
- 2000.11.25 13:35
- 0 COMMENTS
- /
- 0 LIKES
-
- 이종택
- 2000.11.25 03:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 권형모
- 2000.11.25 03:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 허접 델초보
- 2000.11.25 02:39
- 0 COMMENTS
- /
- 0 LIKES
-
- 이경문
- 2000.11.25 13:32
- 0 COMMENTS
- /
- 0 LIKES
1. Form의 KeyPreview를 true로 한다. 2. 전역변수나 Form1의 멤버로 ESCKey를 선언한다. var ESCKey: Boolean; 3. FormCreate에서 ESCKey := false로 한다. procedure TForm1.FormCreate(Sender: TObject); begin ESCKey := false; end; ...
-
- 한재성
- •
- 2000.11.25 01:36
- 1 COMMENTS
- /
- 0 LIKES
-
황광일•2000.11.25 01:58먼저 정확한 Configuration 을 알아야 하겠네요... 한대의 컴터에 2개의 랜카드를 꽂는 것은 이중화 시...
-
- 원영준
- 2000.11.25 01:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 은철수
- 2000.11.25 00:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 돌이
- 2000.11.25 13:38
- 0 COMMENTS
- /
- 0 LIKES
-
- won
- •
- 2000.11.25 13:36
- 1 COMMENTS
- /
- 0 LIKES
-
윤준호•2000.12.13 03:30won wrote: > > QuickRep1의 > Qrtext의 Dataset='DM.Query1',Datafield='FLD1' > > 데이타모쥴 DM....
-
- 오병주
- •
- 2000.11.25 00:43
- 4 COMMENTS
- /
- 0 LIKES
-
로비•2000.11.25 11:12간단히 하면 ... ShellExecute(handle,'open',Pchar('aaa.txt'),'c:windowsnotepad.exe',NIL,SW_SHOW); ...
-
오병주•2000.11.25 17:26로비 wrote: > 간단히 하면 ... > > ShellExecute(handle,'open',Pchar('aaa.txt'),'c:windowsnotepad....
-
로비•2000.11.25 20:34ShellExecute(handle, 'open',Pchar('aaa.txt'),NIL,NIL,SW_SHOW); ====> 2번째 예제 에서는 특정한...
-
오병주•2000.11.27 17:15로비 wrote: > ShellExecute(handle, 'open',Pchar('aaa.txt'),NIL,NIL,SW_SHOW); > ====> 2번째 ...
-
- 왕초보
- •
- 2000.11.25 00:29
- 1 COMMENTS
- /
- 0 LIKES
-
Black}{ole•2000.11.25 02:20안녕하세요. ^^ 네스케이프는 모르겠고,. 익스플로어 같은경운.. 팁란에 찾아보면 있습이다. 그럼..2000...
-
- 초보
- •
- 2000.11.25 00:24
- 1 COMMENTS
- /
- 0 LIKES
-
조대호•2000.11.25 01:32초보 wrote: > 알려주세요...컴포넌트 등록하는 방법..드록하려고 하는 것은...rx 컴포넌트 입니다. Rx...
-
- 라인하르트
- •
- 2000.11.25 00:24
- 1 COMMENTS
- /
- 0 LIKES
-
저두처버•2000.11.25 01:43씨디라면 잘못구운거네여. 씨디를 넣으면 자동으로 셋업화면이 떠야 하는거 아시죠? 원래 델파이는 root ...
-
- 비즈
- •
- 2000.11.25 13:40
- 1 COMMENTS
- /
- 0 LIKES
-
김일영•2000.11.25 13:43안녕하세요. Q&A 게시판 관리 보조입니다. 글쎄 저한텐 결코 우습진 않은데요. 하여간 그렇게라도 웃을 수...
-
- 왕초보
- 2000.11.25 14:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 오병주
- •
- 2000.11.25 00:08
- 1 COMMENTS
- /
- 0 LIKES
-
뿌요•2000.12.23 20:25오병주 wrote: > [질문] DBGrid에서 특정칼럼에 클릭해서 이밴트 발생 방법 > > 말그대로 입니다 > D...
-
- 처음처럼
- 2000.11.25 00:05
- 0 COMMENTS
- /
- 0 LIKES
-
- pallas
- •
- 2000.11.25 14:56
- 1 COMMENTS
- /
- 0 LIKES
-
김일영•2000.11.25 15:01안녕하세요. 이 문제에 대해 답변이 아닌데도 이렇게 글을 달았습니다. 왜냐하면 올려주신 내용만으로는 ...
-
- 유레카
- 2000.11.24 23:59
- 0 COMMENTS
- /
- 0 LIKES
