Сообщение от Arton
Вопрос как листать тайп?
Мне нужно, доходя до конца списка автоматически перемещаться в начало и наоборот.
|
Вот так наверно.
If xKeyHit(44) = True Then ;назад "z"
If Handle(Sobj) = First StaticObject Then Sobj.StaticObject = Last StaticObject
Else Sobj = Before Sobj EndIf
End If
If xKeyHit(45) = True Then ;вперёд "x"
If Handle(Sobj) = Last StaticObject Then Sobj.StaticObject = First StaticObject
Else Sobj = After Sobj EndIf
End If