BorderIcons: Minimize, Maximize without X

[doctorjellybean]

If I set the biSystemMenu property of BorderIcons to false, it disables the Minimize and Maximize icons, with a BorderStyle setting of bsSingle.

As I have an Exit option in the MainMenu, I would like to get rid of the X, but retain the Minimize and Maximize options.

Is that possible?

Thank you.

 

[Glenn9999]

No. Best I can see that you can do is disable the Close icon. The Close icon seems to be arbitrarily default, unless I'm not seeing something.

procedure TForm1.Button5Click(Sender: TObject);
var
  mySysMenu: DWord;
begin
{ Const SC_SIZE As Int32 = &HF000
  Const SC_MOVE As Int32 = &HF010
  Const SC_MINIMIZE As Int32 = &HF020
  Const SC_MAXIMIZE As Int32 = &HF030
  Const SC_CLOSE As Int32 = &HF060
  Const SC_RESTORE As Int32 = &HF120
  Const MF_BYCOMMAND As Int32 = &H0
  Const MF_SEPARATOR As Int32 = &H800 }

  mySysMenu := GetSystemMenu(Form1.Handle, false);
  EnableMenuItem(mySysMenu, SC_CLOSE, MF_DISABLED);
  DrawMenuBar(Form1.Handle);
end;

----------
Those who work hard are rewarded with more work and remembered come time to downsize.  Those who hardly work are given a paycheck and ignored completely.

 

[Duoas]

You're right, it is not possible using the standard window decoration classes.

If you want it badly enough, you can draw your own:

http://www.codeguru.com/cpp/w-d/dislog/titlebar/article.php/c1987/

http://delphi.about.com/od/adptips2006/qt/draw_captionbar.htm

Beware that there are caveats, and that Vista will hate you.