Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.058 c
3-1084735551
SnowMen
2004-05-16 23:25
2004.06.06
function YearsBetween(const ANow, AThen: TDateTime): Integer;


3-1084691280
Rouse_
2004-05-16 11:08
2004.06.06
Очень быстрое добавление изменение записи...


14-1084916190
Тупорылая_молодая_поросль
2004-05-19 01:36
2004.06.06
Хочу в орешник!!!


4-1083077222
Maximys
2004-04-27 18:47
2004.06.06
Поиск в реестре в windows


3-1084513992
Вопрошающий
2004-05-14 09:53
2004.06.06
Копирование данных