alt -f4 로 종료 못하게 하기
<!--CodeS-->
procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview := true;
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((ssAlt in Shift) and (Key = VK_F4)) then
Key := 0;
end
<!--CodeE-->
출처 : Tong - Dearest 시니님의 델파이팁통
이것 역시 안되는데... 요즘 버전에서는 안통하나요?
따로 전역 변수를 두시고 처리하시면되겟네요.
public
IsTheEnd: Boolean;
이렇게 하나 두시고
Form의 CloseQuery 이벤트에서
if Not IsTheEnd then CanClose := False;
이러시면 원하시는 방향으로 될듯하군요.