На форме есть
FormAddTextField и
Command.
Проблема в том, что, при нажатии
OK, когда FormAddTextField пустой, мидлет виснет.
Мой код:
var d: real;
id_2: integer;
ok: command;
. . .
begin
id_2 := FormAddTextField('Поле ввода', '', 10, 5);
ok := CreateCommand(' OK', CM_BACK, 1);
AddCommand(OK);
while GetClickedCommand <> OK do delay(100);
d := StringToReal(FormGetText(id_2), 10);
end;
Как решить проблему? Заранее благодарен!