Q&A
- 프로그램 종료를 취소할 수 있도록 하려면
프로그램을 제작하여 실행도중에
창 오른쪽 위에 있는 X를 클릭하면 종료가 돼잖아요!
근데 그걸 한단계 거칠려고 하거든요?
onclose 이벤트에 다음과 같이 소스를 삽입했습니다.
if MessageDlg('프로그램을 종료 하겠습니까?',
mtinformation, [mbYes, mbno], 0) = mrYes then
begin
search_frm.close;
end
else
begin
search_frm.show;
end;
아니요를 클릭해도 종료가 돼는데 막는 방법 없을까요?
창 오른쪽 위에 있는 X를 클릭하면 종료가 돼잖아요!
근데 그걸 한단계 거칠려고 하거든요?
onclose 이벤트에 다음과 같이 소스를 삽입했습니다.
if MessageDlg('프로그램을 종료 하겠습니까?',
mtinformation, [mbYes, mbno], 0) = mrYes then
begin
search_frm.close;
end
else
begin
search_frm.show;
end;
아니요를 클릭해도 종료가 돼는데 막는 방법 없을까요?
3
COMMENTS
-
-
안녕하세여.. 컴맹입니다...
일단 폼의 CloseQuery 이벤트에 다음과 같이 하시면
종료가 되지 않습니다..
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('프로그램을 종료 하겠습니까?',
mtinformation, [mbYes, mbno], 0) = mrYes then
CanClose := True
else
CanClose := False;
end;
여기서 Yes 인경우는 종료 no인경우에는 프로 그램이 종료가 되지 않습니다..
그럼 이만...
초보델파이... wrote:
> 프로그램을 제작하여 실행도중에
>
> 창 오른쪽 위에 있는 X를 클릭하면 종료가 돼잖아요!
>
> 근데 그걸 한단계 거칠려고 하거든요?
>
> onclose 이벤트에 다음과 같이 소스를 삽입했습니다.
>
> if MessageDlg('프로그램을 종료 하겠습니까?',
> mtinformation, [mbYes, mbno], 0) = mrYes then
> begin
> search_frm.close;
> end
> else
> begin
> search_frm.show;
> end;
>
> 아니요를 클릭해도 종료가 돼는데 막는 방법 없을까요?
>
-
CloseQuery에 대한 보충 설명입니다.
종료 이밴트에 속하는 CloseQuery는 Windows상의 모든 종료를 막아 줍니다.
활성창의 X표시, ALT+F4까지 막아 줍니다.
활용을 잘 하시면 좋은 Event가 됩니다.
즐프 하세요.....
(NOTICE) You must be logged in to comment on this post.
-
- 칠라기
- •
- 2001.03.19 21:18
- 1 COMMENTS
- /
- 0 LIKES
-
성더기•2001.03.20 01:21칠라기 wrote: > 책을 보다가 다음과 같은 문제를 보게 되었습니다. > > -- 데이터의 중복성이 완전히 ...
-
- bean
- 2001.03.19 21:15
- 0 COMMENTS
- /
- 0 LIKES
-
- 느티나무
- 2001.03.19 20:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 구상도
- •
- 2001.03.19 20:37
- 1 COMMENTS
- /
- 0 LIKES
-
김동환•2001.03.20 03:39//현재는 win98에서 찾는 방법만 사용 하였습니다. 그리구 밑의 SeekProcess함수는 제가 중복으로 실행이 ...
-
- 호야
- •
- 2001.03.19 20:12
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.03.20 02:06안녕하세요. 최용일입니다. Components(Owner)과 Controls(Parent)속성을 혼동하신거 같군요. Component...
-
- 과객
- •
- 2001.03.19 19:56
- 3 COMMENTS
- /
- 0 LIKES
-
컴맹..•2001.03.19 20:21안녕하세여... 컴맹입니다... 위에 코드에는 두가지 문제가 있군여... Queue := TQueue.Create;// ...
-
과객•2001.03.19 21:30컴맹.. wrote: > 안녕하세여... 컴맹입니다... > > 위에 코드에는 두가지 문제가 있군여... > > Q...
-
컴맹..•2001.03.19 22:45안녕하세여... 전체 소스를 올림니다.. 이런식으로 사용하심이 맞는것 같네여... unit Unit1; int...
-
- 초보델파이...
- •
- 2001.03.20 11:29
- 3 COMMENTS
- /
- 0 LIKES
프로그램을 제작하여 실행도중에 창 오른쪽 위에 있는 X를 클릭하면 종료가 돼잖아요! 근데 그걸 한단계 거칠려고 하거든요? onclose 이벤트에 다음과 같이 소스를 삽입했습니다. if MessageDlg('프로그램을 종료 하겠습니까?', mtinforma...-
까마귀•2001.03.20 11:29초보델파이... wrote: > 프로그램을 제작하여 실행도중에 > > 창 오른쪽 위에 있는 X를 클릭하면 종료...
-
컴맹..•2001.03.20 11:29안녕하세여.. 컴맹입니다... 일단 폼의 CloseQuery 이벤트에 다음과 같이 하시면 종료가 되지 않습니...
-
김동환•2001.03.20 11:30CloseQuery에 대한 보충 설명입니다. 종료 이밴트에 속하는 CloseQuery는 Windows상의 모든 종료를 막아...
-
- 김신광
- •
- 2001.03.19 20:07
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.03.20 01:54안녕하세요. 최용일입니다. 델파이 버전만 맞다면 인스톨 가능합니다. 패키지에 dcu를 직접 넣으시지...
-
- 아라
- 2001.03.19 20:34
- 0 COMMENTS
- /
- 0 LIKES
-
- 쫑아랍니다..
- •
- 2001.03.19 19:39
- 1 COMMENTS
- /
- 0 LIKES
-
까마귀•2001.03.19 21:46쫑아랍니다.. wrote: > 스트링 그리드의 arow3값을 금액형(3,000,000)으루 뿌리고 싶은데... > > 델파...
-
- jun o
- 2001.03.19 19:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 김명찬
- 2001.03.19 19:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보.....ㅜ.ㅜ
- 2001.03.19 18:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 조승식
- •
- 2001.03.19 16:05
- 1 COMMENTS
- /
- 0 LIKES
-
신태균•2001.03.23 02:25조승식 wrote: > 232 통신은 첨인데 먹고는 살아야 하구...어휴 힘들다.. > 부탁드립니다. > > 송신쪽...
-
- 김진규
- 2001.03.19 10:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 민
- •
- 2001.03.19 07:38
- 1 COMMENTS
- /
- 0 LIKES
-
whitetree•2001.03.19 18:53민 wrote: > procedure TForm_main.Edit_messageKeyPress(Sender: TObject; var Key: Char); > begin > ...
-
- 델피언
- 2001.03.19 07:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 김광수
- •
- 2001.03.19 06:03
- 1 COMMENTS
- /
- 0 LIKES
-
아폴론•2001.03.19 18:32김광수 wrote: > > 제목 그대롭니다 > > 메인폼 포커스 유지한 상태로 다른폼 보이게 하는 방법 좀 ...
-
-
아폴론•2001.03.19 18:35zerodog wrote: > landscape 으로 레포트를 눕혔는데(폼에서는 가로로 돼있는데) preview에는 세로로 출력...
-
-
- 아기코알라
- •
- 2001.03.19 04:19
- 4 COMMENTS
- /
- 0 LIKES
-
바보감자•2001.03.19 18:54아기코알라 wrote: > 오늘도 프로그램하시느라 수고가 많으시네요… > 오늘도 여전히 염치불구하고 고수님...
-
아기코알라•2001.03.20 01:03답변 정말 정말 감사드립니다. 바보감자님의 앞날에 많은 행운이 있으시길 바랍니다… 제가 질문을 좀 ...
-
바보감자•2001.03.20 19:21아기코알라 wrote: > 답변 정말 정말 감사드립니다. > 바보감자님의 앞날에 많은 행운이 있으시길 바랍니...
-
아폴론•2001.03.20 01:39> > 예) 필드명 SuperNo / CardNo / ~~~~ > 레코드1 1-1 / 1 / ~~~ >...
> 프로그램을 제작하여 실행도중에
>
> 창 오른쪽 위에 있는 X를 클릭하면 종료가 돼잖아요!
>
> 근데 그걸 한단계 거칠려고 하거든요?
>
> onclose 이벤트에 다음과 같이 소스를 삽입했습니다.
>
> if MessageDlg('프로그램을 종료 하겠습니까?',
> mtinformation, [mbYes, mbno], 0) = mrYes then
> begin
> search_frm.close;
> end
> else
> begin
> search_frm.show;
> end;
>
> 아니요를 클릭해도 종료가 돼는데 막는 방법 없을까요?
>
안녕하세요. 까마귀입니다.
밑에 처럼 하셔도 되고요.
OnClose 이벤트에서 처리하시려면요.
else begin
Action := caNone;
search_frm_.Show;
end;
위처럼 하시면 됩니다.
델파이 도움말에서 Action의 역할을 찾아보세요.
위대한 단군혼이 살아있는 나라.... 대한민국.