Работа в однострочном редакторе (Edit, LabeledEdit)

Для ввода и вывода информации в однострочном редакторе служит свойствоText типа String:

LabeledEdit2.Text:='0'; - в окно редактора будет записан 0.

Работа с компонентом LabeledEdit не отличается от работы с компонентом Edit. Компонент LabeledEdit – это синтез двух компонентов Label (надпись) и Edit (редактор). Чтобы изменить заголовок надписи используют свойство Сaption составного свойства EditLabel. Можно менять расположение надписи относительно редактора, использовав при этом свойствоLabelPosition.

Для проверки вводимой информации (например, запрет ввода всех символов, кроме цифр, клавиши Delete - #8 и разделителя целой и дробной части - DecimalSeparator) можно использовать событие нажатие клавиш:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if not(Key in ['0'..'9',#8,DecimalSeparator])

then Key:=#0;// ничего не введено

end;

Пример 9. Программа перевода скорости, измеренной в км/час в скорость в м/с. На форме расположены следующие элементы: надпись, два редактора и три кнопки. Внешний вид формы представлен на рисунке 15.

Рисунок 15 - Внешний вид формы

Значения свойств компонентов представлены в таблицах.

Таблица 2 - Значения свойств компонента Form

Таблица 3- Значения свойств компонента Label

Таблица 4 - Значения свойств компонентов LabeledEdit

Таблица 5 -Значение свойств для компонента BitBtn1

Таблица 6 - Значение свойств для компонента BitBtn2

Таблица 7-Значение свойств для компонента BitBtn3

Листинг программы:

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

// нажатие на кнопку рассчитать

const

Koeff=1/3.6;

var

Km,M:real;

begin

Km:=StrToFloat(Form1.LabeledEdit1.Text);

M:=Km*Koeff;

Form1.LabeledEdit2.Text:=

FloatToStrF(M,ffFixed,5,2);

end;

procedure TForm1.FormShow(Sender: TObject);

begin

Form1.BitBtn3Click(Sender);// вызов процедуры

end; // нажатие на кнопку «Очистить»

procedure TForm1.LabeledEdit1KeyPress(Sender: TObject; var Key: Char);

begin

if not (Key in['0'..'9',#8,DecimalSeparator])

then Key:=#0;// запрет ввода не числа

end;

procedure TForm1.BitBtn3Click(Sender: TObject);

// нажатие на кнопку «Очистить»

begin

Form1.LabeledEdit1.Text:='0';//в редактор записать 0

Form1.LabeledEdit2.Text:='0';

if Form1.LabeledEdit1.CanFocus then

Form1.LabeledEdit1.SetFocus;//установить фокус ввода

end;

end.

Порядок выполнения программы такой: приложение начинает свою работу с метода «Показ формы», в котором идет обращение к методу нажатие на кнопку «Очистить» (установить нули в редакторы, установить фокус ввода в первый редактор). Затем приложение будет ждать нажатия кнопки «Рассчитать». В методе « нажатие на кнопку «Расситать» программа переводит введенное в первый редактор значение из км/час в м/с и записывает новое значение во второй редактор.