Vb, Delphi, .net, framework, C++, Java, Pascal,Visual Studio, Asm, Ruby, C#, j#, Cs, Html, Php, Perl, Asp, xHtml Get Free Souce Code Here...

Preventing the user from closing a form - Delphi

To prevent the user from closing a form you need to disable the close
button in the title bar of a form and at the same time disable the
"Close" menu item in the form's system menu. This is done by calling
the EnableMenuItem API function (see the example below). Nonetheless,
the user can still close the form using the Alt+F4 key combination,
so we have to set the KeyPreview form property to True and write an
event handler for the OnKeyDown event to cancel out this hot key:

  procedure TForm1.FormCreate(Sender: TObject);
    hSysMenu: HMENU;
    hSysMenu := GetSystemMenu(Self.Handle, False);
    if hSysMenu <> 0 then begin
      EnableMenuItem(hSysMenu, SC_CLOSE,
    KeyPreview := True;

  procedure TForm1.FormKeyDown(Sender: TObject;
    var Key: Word; Shift: TShiftState);
    if (Key = VK_F4) and (ssAlt in Shift) then
      Key := 0;


Post a Comment