Спрятать Min и Max кнопки на форме

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

procedure TForm1.FormCreate(Sender: TObject);

var

l: DWORD;

begin

l := GetWindowLong(Self.Handle, GWL_STYLE);

l := l and not (WS_MINIMIZEBOX);

l := l and not (WS_MAXIMIZEBOX);

l := SetWindowLong(Self.Handle, GWL_STYLE, l);

end;

{/codecitation}

Добавить комментарий