BorderIcons + biHelp

[NieL]

Можно ли сделать чтобы заголовок формы отображал все BorderIcons, включая biHelp.

[mihali4]

За это отвечает свойство BorderIcons формы - можно увидеть в инспекторе объектов... Зрение подсело, да?

[NieL]

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

За это отвечает свойство BorderIcons формы - можно увидеть в инспекторе объектов... Зрение подсело, да?

Странно. В инспекторе объектов я указал

[biSystemMenu,biMinimize,biMaximize,biHelp]

, но почему-то отображается только biSystemMenu,biMinimize,biMaximize

[mihali4]

Ах, да, виноват. Она видна только при стиле bsDialog и при отключенных макс/мин. Зачем так сделали - непонятно...
Нужно рисовать ручками. Ничего другого, по-моему, не остается...
Примерно так (не помню откуда):

Procedure DrawFalseClose (Wd:HWND; xPos:Integer);
Var DC:HDC;
begin
 DC:=GetWindowDC(Wd); // Получим контекст устройства окна
If DC>0 then
 Begin
   DrawFrameControl (DC,Rect(xPos,4,xPos+16,020),DFC_Caption,DFCS_CaptionClose);
   ReleaseDC(Wd,DC); // Освободим контекст устройства.
End;
end;

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

[NieL]

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

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

Не подскажите, где можно скачать этот компонент.

[mihali4]

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

Не подскажите, где можно скачать этот компонент.

Скачать можно в интернете. Вы уж поищите сами, мне как-то недосуг, к тому же у меня эта услуга платная.