procedure TForm1.FormCreate(Sender: TObject);
var
l: DWORD;
begin
l := GetWindowLong(Self.Handle, GWL_STYLE);
l := l andnot (WS_MINIMIZEBOX);
l := l andnot (WS_MAXIMIZEBOX);
l := SetWindowLong(Self.Handle, GWL_STYLE, l);
end;
Статья Спрятать Min и Max кнопки на форме раздела Программа и Интерфейс Заголовок формы может быть полезна для разработчиков на Delphi и FreePascal.
