How to disable close button on forms 1

[djjd47130]

I just wrote an FAQ:

http://www.tek-tips.com/faqs.cfm?fid=7515

demonstrating how to disable (not hide or ignore) the Close button in the top-right of windows forms.

JD Solutions

 

[majlumbo]

You'll also want to disable Alt-Shift-F4, which will close down your program (even with the border icon disabled).

To do so, add the Keydown handler at the form level that catches this key combination.

so using your example, you'd add:

procedure TMain_Form.FormKeyDown(Sender: TObject; var Key: Word; shift: TShiftState);
begin
   if ((not fCloseButtonEnabled) and (Key = VK_F4) and (ssAlt in Shift)) then
      Key := 0;
end;

 

[djjd47130]

Thank you, great point. My goal is to soon make a shell form which includes all this extra functionality. I can make another property similar to this called "AllowClose" which takes all necessary steps to prevent user from closing the form.

I started experimenting with this subject while building an updater program, where during the update process, bad things could happen if the user decides to try to close the window.

JD Solutions

 

[majlumbo]

That's exactly what I use it for. One more thing that I add to my process is that I disable the screensaver while the process is running.

 

[djjd47130]

Well screensaver isn't too important in my case, but good idea. This sounds like more of something to put on the Application level, not the Form.

JD Solutions