Как спрятать кнопки в заголовке окна

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

Автор: Andrey

procedure TForm1.FormCreate(Sender: TObject);

var

Style: Longint;

begin

Style := GetWindowLong(Handle, GWL_STYLE);

SetWindowLong(Handle, GWL_STYLE, Style and not WS_SYSMENU);

end;

{/codecitation}

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