[Bargest]

Вот например QIP. В заголовке СЛЕВА кнопка закрыть (явно самопальная) и справа еще 2 кнопки, тоже своих.
Skype. В заголовке - картинка и 4 нестандартных кнопки.
Google Chrome. В заголовке - TabSheet'ы.

Кто знает, как подобное сделать? Как размещать что-либо на заголовке окна? Хоть средствами Delphi, хоть WinAPI - любой способ приветствуется.

[notricky]

Самое простое: Убираешь заголовок формы и делаешь свой заголовок.

Код:

    var Style: integer;
Style := GetWindowLong(Handle, GWL_STYLE);
    if (Style and WS_CAPTION) = WS_CAPTION then begin
        SetWindowLong(Handle, GWL_STYLE, Style and (not (WS_CAPTION)) or WS_BORDER);
        Height := Height - GetSystemMetrics(SM_CYCAPTION);
    end;

Что бы можно было перетаскивать окно - гугли ReleaseCapture;


Кроме того, можно рисовать на Окне вот так: http://www.delphisources.ru/pages/fa...aptionbar.html

[Bargest]

Первое - немного не то. А вот за второе огромное спасибо

[lmikle]

Собственно, все сделано на наборе сообщений NC_xxx.
Обрабатываешь их и делаешь руками все, что нужно.
Только вот зачем??? В этом случае ты теряешь возможности автонастройкт внешнего вида окна в зависимости от установок пользователя.

[Bargest]

Да, зато получаю возможность делать красивые нестандартные приложения, могу использовать область заголовка в любых целях, размещать там элементы управления или картинки. Что очень и очень удобно и красиво.

[Bargest]

Хм... Че-то в winXP все норм, а вот в Win7 кнопка не отображается... В чем может быть дело?

[Bargest]

Кто-нибудь знает? Помогите пожалуйста