[Ogurcofff]

Нашел я в инете одну интересную вещь.
Там используется 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;

И тогда возникает вопрос если значение edit больше максимального значения trackbar1, как сделать чтобы шкала trackbar1 менялась в соответствии с Edit.
Надеюсь понятно объяснил

[NumLock]

сперва сравнивать максимальное значение trackbar и значение в edit и если в edit значение больше, то делать максимальное значение trackbar в 2 раза больше, чем значение в edit.

[Ogurcofff]

Код:

procedure TForm1.Edit1Change(Sender: TObject);
begin
trackbar1.Position:=strtoint(edit1.text);
i:=StrToint(edit1.text);
j:=trackbar1.max;
if i>j then trackbar1.max:=i*2;
end;

Так?
Нет похоже не так. Что то туплю я конкретно

[NumLock]

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

Так?

--------->

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

сперва

[Страдалецъ]

А не надо ничего особого делать:

Код:

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
 Edit1.Text := IntToStr(ScrollBar1.Position);
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
 ScrollBar1.Position := StrToIntDef(Edit1.Text, 0);
end;