Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для El Sanchez

Ветеран


Contributor


Сообщения: 1274
Благодарности: 1030

Профиль | Отправить PM | Цитировать


Цитата Johny777:
добавить кнопку "свернуть" в
заголовок формы ( BorderStyle := bsDialog ) »
Johny777, так пойдет?
Код: Выделить весь код
const
    GWL_STYLE = (-16);
    WS_MINIMIZEBOX = $20000;
    
function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint; external 'GetWindowLongA@user32.dll stdcall';
function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external 'SetWindowLongA@user32.dll stdcall';

procedure InitializeWizard();
begin
    WizardForm.BorderStyle := bsDialog;
    SetWindowLong(WizardForm.Handle, GWL_STYLE, GetWindowLong(WizardForm.Handle, GWL_STYLE) or WS_MINIMIZEBOX);
end;
Это сообщение посчитали полезным следующие участники:

Отправлено: 18:39, 07-02-2013 | #1625