Текущий архив: 2004.06.06;
Скачать: CL | DM;
Вниз
Изменение позиции 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 и всё.
Ветку можно закрывать.
Страницы: 1 вся ветка
Текущий архив: 2004.06.06;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.084 c
