Изменение позиции UpDown a в TTabControl

← →
Seldon © (2004-04-29 21:18) [0]

Нужно программно прокручивать TTabControl. Для этого получаю Handle UpDown"a и вызываю такой код:

procedure IncUpDownPos(UpDown:HWND;Delta:Integer); var CurrPos:SmallInt; Range:Integer; begin CurrPos:=Lo(SendMessage(UpDown,UDM_GETPOS,0,0)); Range:=SendMessage(UpDown,UDM_GETRANGE,0,0); if (CurrPos+Delta>=Hi(Range))and(CurrPos+Delta<=Lo(Range)) then SendMessage(UpDown,UDM_SETPOS,0,MakeLong(CurrPos+Delta,0)); end;

Код, работает, т.к. следующая проверка поазыает, что позиция UpDown"а действительно меняется.

А вот вкладки TabControl"a не прокручиваются.

Help me!

← →
Seldon © (2004-04-29 22:33) [1]

Я почему-то очень люблю усложнять всё.

Всего-то делов: послать TabControl"y WM_HSCROLL и всё.

Ветку можно закрывать.

Изменение позиции UpDown a в TTabControl Найти похожие ветки