| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как в runtime скрыть/показать скроллбар в TKOLMemo? [Delphi, Windows]

Моторокер ©   (2006-10-24 08:50:00) 

Нужно во время работы показывать скроллбар в зависимости от объёма текста. В designtime свойства настраиваются нормально, однако в runtime скрыть/показать скроллбар в KOLMemo не получается.
KOLRichEdit сам справляется с подобной функцией, но мне не нужен доп. функционал.

---

Grom PE   (2006-10-25 03:55:00) [1]

MTsv DN ©   (24.10.06 19:39) [2]

Хм.. Буду иметь ввиду. Спасибо.

---

MTsv DN   (2006-10-24 19:39:00) [2]

> Смотри функцию ShowScrollBar в WinAPI =)
Лучше не так... Лучше так. В обработчике OnMessage:
if (Msg.message = WM_NCCALCSIZE) then
 begin
  style := getWindowLong( Memo1.Handle, GWL_STYLE );
  If (style and WS_VSCROLL) <> 0 Then
   SetWindowLong( Memo1.Handle, GWL_STYLE, style and not WS_VSCROLL );
  If (style and WS_HSCROLL) <> 0 Then
   SetWindowLong( Memo1.Handle, GWL_STYLE, style and not WS_HSCROLL );
  inherited;
 end;

---

Grom PE   (2006-10-24 12:57:00) [3]

Смотри функцию ShowScrollBar в WinAPI =)

---

Наверх