Чтобы вызвать диалог, в котором бы пользователь должен был ввести что-нибудь,
достаточно воспользоваться функцией InputBox или InputQuery.
Эти функции создают диалог с полем ввода, надписью над ним и двумя кнопками: "OK" и "Cancel".
Параметры управляют заголовком окна, надписью над полем ввода и начальным значением.
Функции отличаются тем, что после вызова InputBox нельзя понять:
пользователь нажал "OK", не изменив текст, или "Cancel",
а текст был восстановлен самой фунцией.
InputQuery возвращает значение типа boolean по которому можно определить,
какую кнопку нажал пользователь. Пример:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Caption := InputBox("Заголовок окна",
"Введите, пожалуйста, заголовок окна:", Form1.Caption);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
s: string;
begin
s := Form1.Caption;
ifnot InputQuery("Заголовок окна",
"Введите, пожалуйста, заголовок окна:", s)
then s := "No value";
Form1.Caption := s;
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Диалог для ввода значения", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!