از کار انداختن Alt+F4 در برنامه در برنامه نویسی دلفی

[Borna66]

اكثر شما شايد بخواهيد كه برنامه هاي شما فقط بوسله كليدي كه شما تعريف نموده ايد بسته شود.

براي اين كار بايد كليدهاي ALT+F4 از كار بيفتد.

براي اينگونه عمل كنيد:

در قسمت VAR در بالاي قسمت IMPLEMENTATION يك متغيير به شكل زير تعريف نماييد :




CV:BOOLEAN;

در رويداد ON CLOSE QUERY اين گونه بنويسيد

CANCLOSE:=CV;

و در رويداد ONSHOW فر م اينگونه بنويسيد

CV:=FALSE;

حال تا زماني كه اين متغيير FALSE باشد فرم بسته نميشود بنابراين در كليدي كه براي خروج تعريف مينماييد بايد اينگونه عمل كنيد

CV:=TRUE;

FORM.CLOSE;