폼 우측상단에 보면 최소화 / 최대화 / 종료 이렇게 있는데여
X 표시 된 종료 버튼 눌렀을 때 종료 안되게 하려는데 잘 안되네요
closequery에서 CanClose를 전역변수값을 이용해서 조절하면 되긴하는데요
누르고 있는 순간에 폼에서 이루어지고 있는 동작들이 다 멈추고 있습니다.
마우스 버튼을 놓아야 다시 진행을 하고여
for i:=0 to 100 do
begin
Edit1.text := inttostr(i);
Sleep(50);
Application.ProcessMessage;
end;
위에 구문이 동작하고 있을 때 종료 버튼을 누르면 멈추고 놓으면 다시 동작이 됩니다.
누르고 있어도 메시지를 무시하게 할 수 없나요?
{ Public declarations }
procedure WMNCHitTest( Var msg: TWMNCHitTest );
message WM_NCHITTEST;
procedure TForm1.WMNCHitTest( Var msg: TWMNCHitTest );
begin
inherited;
If msg.result = HTCLOSE Then //Close 버튼클릭
msg.result := HTNOWHERE; //그냥 넘어가라
End;
참고) HTCAPTION //캡션바를 누를때
기타등등....Windows.pas 를 참고하세요!