Кнопки в загаловке формы

[artemavd]

Я же Вам советовал - найдите ломаную Alpha Controls и не мучайтесь.

За такие советы штраф от меня получите.
Теперь по делу.
Компоненты Alpha Controls - бесплатные и на мой взгляд самые прикольные и удобные компоненты. Версия Alpha Controls 7.26 (последняя) - официально бесплатная и доступна для свободного скачивания с официального сайта. Ссылка на сайт: http://www.alphaskins.com/ . Я их использую для своих программ, хватает легко их возможностей. В этом наборе есть компонент - ТsSkinProvider1. В нем можно легко создать сколько угодно кнопок и вставить в них картинки. И не надо никаких громоздких кодов, как в постах выше.

[Ja1k]

Уже давно есть компанент
{********************************** ***************************}
{ TCaptionButton Components for Delphi 16/32 }
{ Version: 1.01 }
{ Author: Aleksey Kuznetsov, Kiev, Ukraine }
{ Алексей Кузнецов (Xacker), Киев, Украина }
{ E-Mail: xacker@phreaker.net }
{ Homepage: http://www.angen.net/~xacker/ }
{ Created: March, 3, 1999 }
{ Modified: March, 12, 1999 }
{ Legal: Copyright (c) 1999 by Aleksey Xacker }
{********************************** ***************************}
{ TCaptionButton (English): }
{ Additional button on form's title. }
{********************************** ***************************}
{ TCaptionButton (Russian): }
{ Дополнительная кнопка на заголовке окна. }
{********************************** ***************************}
{ If at occurrence of any questions concerning these }
{ components, mail me: xacker@phreaker.net. }
{ For updated versions visit my H-page: www.angen.net/~xacker }
{********************************** ***************************}

Позваляет добавить кнопку в заголовок и определить ее расположение по отношению к правому краю.
Единственный недостаток каторый я заметил это пропадание кнопки при изменении FormStyle в этом случае отключается процедура перехвата сабытия нажатия на заголовок окна, я это исправил выделением установки перехвата в отдельную процедуру и вызовом ее после изменения FormStyle, думаю при необходимости это сможет сделать и любой из Вас.