Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Технология программирования / ИТ / 1_виз_сист_прог.ppt
Свойства
Edit1.Text – содержимое
Edit1.Font – шрифт
Edit1.Color – цвет фона
Методы
Edit1.SetFocus – установка фокуса ввода
События
onChange – при изменении текста
onEnter |
– при входе |
onExit |
– при выходе |
21
Примеры
procedure TForm1.Edit1Enter(Sender: TObject); begin
Создается
end;
procedure TForm1.Button1Click begin
m := StrToInt(Edit1.Text); a := StrToFloat(Edit2.Text) c := a*m;
m := m+1;
Edit3.Text := IntToStr(m);
end;
Пишется
программистом
Пишется
программистом
Создается
системой
22
Лекция окончена Спасибо за внимание
☺
23