[angvelem]

Сообщение от Ankor

Большое спасибо angvelem.

Вот как получилось и работает:

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  Style: byte;
begin
  Style := GetWindowLong(Handle, GWL_STYLE);
  SetWindowLong(Handle, GWL_STYLE, Style or WS_SYSMENU or WS_MINIMIZEBOX);

end;

Я и здесь отвечу. Читаем справку:

Код:

  LONG SetWindowLong(
    HWND hWnd,	    // handle of window
    int nIndex,	    // offset of value to set
    LONG dwNewLong // new value
   );

Long = Longint.