изменение размеров фигур...с помощью TTrackBar и Tshape

[oblachko]

Помогите реализовать несколько простейших задач в Delphi)
Половину задач я уже решил, другую половину попросту не успеваю......... впереди меня ждёт экзамен по Матану


4) изменение размеров фигур...с помощью TTrackBar и Tshape


Заранее спасибо за помощь)

[Lemo]

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

4) изменение размеров фигур...с помощью TTrackBar и Tshape

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
shape1.Width:=TrackBar1.Position;
shape1.Height:=TrackBar1.Position;
end;

end.

[oblachko]

Спасибо Lemo))Помог))