Ползунки (TTrackBar) в Delphi

Попробуйте сами изменять эти свойства, и вы увидите результат их действия. Теперь мы готовы написать простенький пример. Для этого надо создать три ползунка разной формы и установить на форму три компо­нента TLabel С именами Label 1, Label2 И Label3.

Теперь необходимо создать обработчик события onchange для первого ползунка и написать там следующий код:

 

procedure TForm1.TrackBarlChange

(Sender: TObject);

begin

Label1.Caption:=IntToStr (TrackBarl.Position);

end;

 

Здесь преобразуется текущая позиция ползунка (TrackBar1.Position) в строку (потому что позиция имеет тип целого числа) с помощью функции intToStr. Ре­зультат запоминается в компонент Label1. Таким образом, после изменения пози­ции ползунка мы сразу отображаем текущую позицию.

Подобный код написан и для остальных ползунков. Попробуйте написать его сами или посмотрите его в исходном коде.

dle

Помоги проекту! Расскажи друзьям об этом сайте: