Удалить кнопки сворачивания и максимизации с формы

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

Оформил: DeeCo

Автор: http://www.swissdelphicenter.ch

{

This article shows by example how to suppress the maximize and

minimize buttons on an form at runtime.

To disable an form’s Minimize and Maximize buttons,

you need to use the SetWindowLong Windows API

function to change the style of the window.

}

{ Dieses Beispiel zeigt, wie man die Schaltflachen zur Minimierung,

Maximierung einer Form zur Laufzeit verstecken kann.

Man braucht dafur die SetWindowLong Windows API um den Stil

des Fensters zu andern.

Der Code kann auch fur non-VCL Anwendungen gebraucht werden.

}

// Add the following code to the OnCreate event

// procedure for your form (TForm1):

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}

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