[Ankor]

Уважаемые знатоки программисты.

Подскажите пожалуйста, почему в делфи хе, если я у формы поставлю
свойство border style: bsNone,(или другое, где нет кнопки свернуть),
то форма после компиляции не сворачивается по нажатию иконки из панели задач?
Она должна сворачиваться и разворачиваться по клику иконки!
На делфи 7 всё нормально.

Виндовс 7х64, делфи хе!

Какие соображения по этому поводу?

[Ankor]

Хоть бы кто-нибудь что-нибудь сказал по этому поводу.
И как у других, должно так быть или нет?

ДелфиХЕ!!!


Например, если свойство формы - border style: bsSingle, то всё работает(((

[lmikle]

Ну, предположительно, потому что в этом случае блокируется обработчик соотвествующего сообщения. Вопрос в том, косяк это винды или библиотеки. Судя по тому, что в Д7 все нормально, то это косяк библиотеки. Хотя, если рассуждать логически, то можно сказать, что это исправление старого бага, который уже все давно считают фичей.

[Ankor]

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

Ну, предположительно, потому что в этом случае блокируется обработчик соотвествующего сообщения. Вопрос в том, косяк это винды или библиотеки. Судя по тому, что в Д7 все нормально, то это косяк библиотеки. Хотя, если рассуждать логически, то можно сказать, что это исправление старого бага, который уже все давно считают фичей.

Ну а проверить то никак нельзя? Тут ни у кого нет делфи хе что ли?
Скомпилировать пустую форму без бордюра и кнопок, и посворачивать
из панели задач секундное дело.

Может какой-то код дописать можно?

[Ankor]

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

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

Код:

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

end;

Исправил, как сказал ниже angvelem, всё работает.

[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.