볼랜드포럼: [정보] [x] 닫기버튼 동작 죽이기

	C++Builder \| Delphi \| FireMonkey \| C/C++ \| Free Pascal \| Firebird

경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지

델파이 포럼

볼랜드포럼 홈

회원 메뉴

델파이 Q&A		Delphi Programming Q&A

[7405] [정보] [x] 닫기버튼 동작 죽이기
악몽이 [ ]	802 읽음 2001-02-17 10:50

procedure TfmTextCon.FormClose(Sender: TObject; var Action: TCloseAction);
begin
showmessage(edit1.text+#13+' 1이면 닫히는데 ^_^');
if edit1.text <> '1' then
Action := caNone
else
Action := caFree;
end;

Action 에 caNone 를 주면 닫히지 않는 다는 말씀

Trackback : http://delphi.borlandforum.com/impboard/impboard.dll/trackback?sn=11878