Здравствуйте, программеры!

Мне нужно убрать кнопку с вопросительным знаком ("?") в заголовке блокнота - TPropSheetPage. Сердце мне подсказывает, что это невозможно, но кто знает... Жду Ваших советов.

Компонент этот не встречал, это из какой версии?

А вообще в свойствах всё должно быть, если нет, то можно закрыть непрозрачным Label'ом или чемэто в этом роде...

Это сообщение отредактировал(а) Pakshin A. S. - 23.1.2004, 21:31

Это не VCL, а WIN32API.

Ууу... С этим не сталкивался.
Очень буду благодарен, если опишете это чудо . Может додумаю, что надо делать...

Может ты в TPropSheetPage.dwFlags поставил PSP_HASHELP ?

Цитата

PSP_HASHELP Enables the property sheet Help button when the page is active.

Но, наверное, это лишь отключает кнопку, но не скрывает.

Тогда тебе придется вручную изменить стиль этого PropertyPage'а так, чтобы не было стиля WS_EX_CONTEXTHELP (SetWindowLong (hwnd, GWL_EXSTYLE, OldStyle - WS_EX_CONTEXTHELP)). Handle окна, по-моему, тебе должен быть известен...
Таким макаром можно убрать вопрос из Свойств Экрана:

Цитата

var   h : THandle;   s : cardinal; begin   h := FindWindow (nil, 'Display Properties');   s := GetWindowLong (h, GWL_EXSTYLE);   SetWindowLong (h, GWL_EXSTYLE, s - WS_EX_CONTEXTHELP); end;

Хотя всё это мои домыслы, т.к. никогда не работал с Property-Sheet'ами. Но попробовать стоит.
Pakshin A. S.

Цитата

Очень буду благодарен, если опишете это чудо

Зайди в свойства экрана - вот пример этого проперти-шит-пейджа. Там справа вверху рядом с крестиком есть знак вопроса, видимо этот знак вопроса мешает КОЯN'у.

Я нашел более эффективное и простое решение:

Код

const  PSH_NOCONTEXTHELP = $02000000; ..................... var psh   : TPropSheetHeader; .....................  // create the Property sheet  psh.dwFlags           := PSH_DEFAULT or PSH_PROPTITLE or    PSH_NOCONTEXTHELP or PSH_USEICONID or PSH_NOAPPLYNOW;

Всем спасибо за участие в обсуждении!