
03.01.2015, 01:20
|
 |
Новичок
|
|
Регистрация: 28.09.2013
Сообщения: 94
Версия Delphi: 2010
Репутация: 10
|
|
Цитата:
Сообщение от angvelem
Код:
case LoWord(wParam) of
TB_PAGEUP, TB_LINEUP, TB_LINEDOWN, TB_PAGEDOWN, TB_TOP,
TB_BOTTOM, TB_ENDTRACK, TB_THUMBPOSITION, TB_THUMBTRACK:
begin
if lParam = Longint(GetDlgItem(Wnd, Tb1ID)) then
begin
end
else if lParam = Longint(GetDlgItem(Wnd, Tb2ID)) then
|
Нет реакции.
Остановлюсь на этом.
Код:
SetDlgItemText(Wnd, GetDlgCtrlID(LParam) + 1, PChar(IntToStr(SendDlgItemMessage(Wnd, GetDlgCtrlID(LParam), TBM_GETPOS, 0, 0))));
Индификаторы тракборов и статиков идут через один
Код:
Tb1= 300;
st1 = 301;
tb2 = 302;
st2 = 303;
и т.д.
И, прокручиваю один трэкбар, реакция идет только с него. По крайней мере как видно по итогам.
|