![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Нашел я в инете одну интересную вещь.
Там используется TrackBar и Edit и они взаимозависимы, т.е. при перемещении движка TrackBar в Edit изменяются цифры. Это реализуется просто: Код:
procedure TForm1.TrackBar1Change(Sender: TObject); begin edit1.Text:=floattostr(TrackBar1.Position); end; Думаю что так: Код:
procedure TForm3.Edit1Change(Sender: TObject); begin trackbar1.Position:=strtoint(edit1.text); end; Надеюсь понятно объяснил |