جلوگیری از بسته شدن فرم

[mohamad5228]

چرا این کد که تو هلپ دلفیه ارور زیر رو میده

کد:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin
if MessageDlg('Close the form?', mtConfirmation,
[mbOk, mbCancel], 0) = mrCancel then
CanClose := False;
end;

کد:

[Error] Unit1.pas(130): Undeclared identifier: 'FormCloseQuery'
[Error] Unit1.pas(130): ';' expected but '(' found
[Error] Unit1.pas(130): ';' expected but ')' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[lord_viper]

این کد مشکل خاصی نداره ولی میتونی از کد زیر هم استفاده کنی

کد:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if MessageDlg('Close the form?', mtConfirmation,[mbOk, mbCancel], 0) =mrCancel then
application.Run;
end;

[mohamad5228]

ممنون از راهنماییتون
اشتباه از من بود.باید روی onclosequery دابل کرک میکردم بعد کد توش می نوشتم.

[mohamad5228]

سلام
چرا وقتی از کد اول استفاده میکنیم جلوی خاموش شدن سیستم رو میگیره وچیکار باید بکنیم تا این طوری نشه؟
ممنون.
(اگه سورس onoffpcdate3 رو دانلود کرده باشید همچین اشکالی داره)