学习官方示例 - TForm.BorderIcons
本例用一行代码禁用了最大化按钮.
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin BorderIcons := BorderIcons - [biMaximize]; end; end.
好的代码像粥一样,都是用时间熬出来的