[Stalker2-42]

Здравствуйте.
Не могу понять как организовать вывод положение 2-х трэкбаров в 2-х Static'ах.
Делал по справке.
Если делаю так(сразу после запуска, static'и пусты):

Код:

function GetPosTrackBar(TB : HWND): Integer;
begin
  Result := SendMessage(TB, TBM_GETPOS, 0, 0);
end;

.....

WM_HSCROLL:
      begin
        case LOWORD(wParam) of
          TB_THUMBTRACK, TB_THUMBPOSITION, TB_LINEDOWN, TB_LINEUP:
          begin
            SetWindowText(Stat1, PChar(IntToStr(GetPosTrackBar(TB1))));
            SetWindowText(Stat2, PChar(IntToStr(GetPosTrackBar(TB2))));
          end; 
       end;

то естественно, в Stat1 и Stat2 будут записаны положение 1 и 2 трэкбара.

А так не работает:

Код:

WM_HSCROLL:
      begin
        case LOWORD(wParam) of
          TB_THUMBTRACK, TB_THUMBPOSITION, TB_LINEDOWN, TB_LINEUP:
          begin
            case LParam of
              Tb1ID: SetWindowText(Stat1, PChar(IntToStr(GetPosTrackBar(TB1))));
              Tb2ID: SetWindowText(Stat2, PChar(IntToStr(GetPosTrackBar(TB2))));
          end; 

Вопрос наверное уже понятен, но на всякий случай:
Как узнать от какого TrackBara поступило Сообщение об изменение позиции, т.е. если Static'и пусты(при создание текста нет), то при прокрутки одного трэкбара не было опроса второго?


Пока что сделал так

Код:

SetDlgItemText(Wnd, GetDlgCtrlID(LParam) + 1, PChar(IntToStr(SendDlgItemMessage(Wnd, GetDlgCtrlID(LParam), TBM_GETPOS, 0, 0))));

Но не думаю что это выход из положения.

[angvelem]

Явных ошибок в коде нет, единственное, опрашиваются не все сообщения от TrackBar-ов.

Код:

      case LoWord(wParam) of
	TB_PAGEUP, TB_LINEUP, TB_LINEDOWN, TB_PAGEDOWN, TB_TOP,
	TB_BOTTOM, TB_ENDTRACK, TB_THUMBPOSITION, TB_THUMBTRACK:
	begin

Хотя нет, ошибка всё же есть. Tb1ID судя по всему ID трекбара, а должен быть хендл.

[Stalker2-42]

Сообщение от angvelem

Хотя нет, ошибка всё же есть. Tb1ID судя по всему ID трекбара, а должен быть хендл.

Пробовал. Выдает ошибку --[DCC Error] E2026 Constant expression expected.

Или нужно Handle'ы сделать константами?

[angvelem]

Не нужно

Код:

if lParam = Longint(GetDlgItem(Wnd, Tb1ID)) then
begin
end
else if lParam = Longint(GetDlgItem(Wnd, Tb2ID)) then

[Stalker2-42]

Сообщение от 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;
 

и т.д.

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

[angvelem]

Сообщение от Stalker2-42

Нет реакции...

Идентификаторы присутствуют при создании трекбаров?

[Stalker2-42]

Да. Или я не так обозвал?

[angvelem]

Нужно увидеть весь код. Сейчас напишу в личку.