Показать сообщение отдельно
  #5  
Старый 03.01.2015, 01:20
Аватар для Stalker2-42
Stalker2-42 Stalker2-42 вне форума
Новичок
 
Регистрация: 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;
 
и т.д.

И, прокручиваю один трэкбар, реакция идет только с него. По крайней мере как видно по итогам.
Ответить с цитированием