Question and Answer Database
FAQ1766D.txt Disabling system menu in code
Category :VCL
Platform :All
Product :All 32 bit
Question:
How can I disable the forms system menu and the Minimize,
Maximize, and Close Buttons in code at Runtime?
Answer:
The following demonstrates disabling the buttons and system menu on
the form's caption bar.
Example:
procedure TForm1.Button1Click(Sender: TObject);
begin
{Disable}
Form1.BorderIcons := Form1.BorderIcons -
[biSystemMenu, biMinimize, biMaximize];
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
{Enable}
Form1.BorderIcons := Form1.BorderIcons +
[biSystemMenu, biMinimize, biMaximize];
end;
7/16/98 4:31:28 PM
Last Modified: 01-SEP-99