Что-то он работает не так, как должен:
1) При нажатии ="doPosition" устанавливается не на 50 а на 0
2) При нажатии ="doPosition2" то-же
3) При нажатии ="doMax" вообще блокируется

[code:1]Add(Button,13731539,119,35) {
Left=10
Top=30
Width=60
Caption="doPosition"
link(onClick,5804470:doPosition,[(159,41)(159,83)])
}
Add(Button,1590227,119,84)
{
Left=10
Top=60
Width=60
Caption="doPosition2"
link(onClick,5804470:doPosition2,[(165,90)(165,90)])
}
Add(Button,7558166,119,140)
{
Left=10
Top=90
Width=60
Caption="doMax"
link(onClick,5804470:doMax,[(159,146)(159,97)])
}
Add(TrackBar,5804470,168,77)
{
Left=95
Top=60
Width=280
Max=100
Position=50
Point(doMax)
link(onPosition,14922619:doText,[(233,83)(212,83)])
}
Add(Label,14922619,217,77)
{
Left=200
Top=25
Color=16776960
Caption=""
AutoSize=1
}[/code:1]
или я что-то неверно делаю? Мне нужно 5-ть TrackBar-ов установить в среднее положение (чтобы в поток выдавалось 50) не дергая за движки

вот так правильнее:
[code:1]Add(Button,13731539,147,98) {
Left=10
Top=30
Width=60
Caption="doPosition"
Data=Integer(50)
link(onClick,5804470:doPosition,[(187,104)(187,146)])
}
Add(Button,1590227,147,147)
{
Left=10
Top=60
Width=60
Caption="doPosition2"
Data=Integer(50)
link(onClick,5804470:doPosition2,[(193,153)(193,153)])
}
Add(Button,7558166,147,203)
{
Left=10
Top=90
Width=60
Caption="doMax"
Data=Integer(200)
link(onClick,5804470:doMax,[(187,209)(187,160)])
}
Add(TrackBar,5804470,196,140)
{
Left=95
Top=60
Width=280
Max=100
Position=50
Point(doMax)
link(onPosition,14922619:doText,[(261,146)(240,146)])
}
Add(Label,14922619,245,140)
{
Left=200
Top=25
Color=16776960
Caption=""
AutoSize=1
}
[/code:1]

Значит значеие позиции которое я ввел в "Свойствах элемента", кроме отрисовки картинки элемента на форме - никому не нужно?

Нет. В данном случае св-во Position это начальное полождение ползунка элемента при старте программы. Тоже самое св-во Position означает в интерфейсных элементах ScrollBar, UpDown. В элементе Counter это св-во называет Default, но служит опять таки же только для установки начального значения( Однако там имеется метод doReset - "Сброс счетчика в начальное значение" очевидно использующий данное св-во по своему прямому назначению. )

Редактировалось 6 раз(а), последний 2021-06-24 09:02:20

[code:1]Add(MainForm,142847,301,154) {
Left=20
Top=105
Point(onMouseUp)
}
Add(Counter,15583865,245,154)
{
Max=10
Point(doMin)
Point(Min)
link(onNext,142847:doCaption,[])
link(Min,3938187:Value,[])
}
Add(Button,13305243,168,154)
{
Left=165
Top=150
link(onClick,15583865:doNext,[])
}
Add(Button,9468599,168,203)
{
Left=165
Top=200
link(onClick,15583865:doMin,[(222,209)(222,181)])
}
Add(Memory,3938187,245,84)
{
Default=Integer(5)
}
[/code:1]

Редактировалось 6 раз(а), последний 2021-06-24 09:02:03

81.91.50.188, говорящий IP, почему-то есть фокус Хотя и неизвестно почему.

[offtop]Охренеть! 10 лет прошло.[/offtop]

По теме: фокус есть при нажатии на компонент, но по Tab фокус действительно не передаётся.
Если код
code_35351.txt

изменить на
code_35352.txt,
то действительно фокус начинает передаваться по Tab.

Не означает ли это, что надо добавить WS_TABSTOP и обновить на SVN?

Проверил с WS_TABSTOP, фокус передается по Tab.
Поддержу:

[offtop]Леонид, а что означает "говорящий IP"? Я смотрел по базе -вроде Ё-бург.[/offtop]

[offtop]3042, это означает обращение к нему и только

Время летит [/offtop]

Небольшая хитрость по теме: если вам не нужно, чтобы какой-либо контрол получал фокус (даже если это предусмотрено кодом), то поставьте TabOrder = -1.
------------ Дoбавленo в 16.30:
А скомпилировав с помощью FPC, можно передавать фокус стрелками клавиатуры.

При этом, зажав Ctrl можно стрелками изменить позицию.

Леонид, Да я забыл указать что по Tab(у)