Разработаем проект, с помощью которого будет вычисляться время преодоления пути лошадью при известной средней скорости и расстоянии.
Назначьте событие OnClick на кнопку «Вычислить»
procedure TForm1.BitBtn1Click(Sender: TObject);
Var
s,v,t: real;
Begin
v:=strtofloat(edit1.text); //присваиваем переменной, введенное в строку значение, переведенное в вещественный тип
s:=strtofloat(edit2.text);
t:=s/v;
label3.caption:='Данное расстояние'+#13
+'лошадь преодолеет за '+floattostr(t)+' часов';
end;
Для создания интерфейса данного проекта используется компонент Image (страница Additional). Рассмотрим его основные свойства.
| Свойство
| Значение
|
| AutoSize
| Разрешает/запрещает изменять размеры компонента так, чтобы в них полностью загрузилось изображение
|
| Canvas
| Содержит канву для прорисовки изображения
|
| Center
| Указывает, надо ли центровать изображения внутри компонента
|
| Picture
| Служит контейнером для изображения
|
| Stretch
| Разрешает/запрещает изменять размер изображения так, чтобы оно целиком заполнило клиентскую область компонента
|
| Методы
| Назначение
|
| LoadFromFile (filename:string)
| Загружает изображение из файла filename
|
