• Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда
  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

Inputbox В Delphi

Sascha Оффлайн

Sascha

Заместитель Администратора
Команда форума
Администратор
Регистрация
9 Май 2015
Сообщения
1,227
Баллы
155
Чем же отличается InputBox от ShowMessage и MessageBox?
Тем что, InputBox имеет поле ввода и кнопки:

И так чтобы опробовать это чудо, создадим проект, кинем на форму одну единственную кнопку (Button) и напишем следующее:
Код:
InputBox('InputBox в Delphi', 'Что вы больше всего любите?', ' Lessons World');
Теперь скомпилируем {F9} программу и нажмем на кнопку. Результатом будет являться появление диалогового окна с готовым Edit’ом и кнопкой.

Чтобы как то оживить нашу программку, объявим переменную test типа string, и изменим код
Код:
var
test:string;
begin
repeat
test := InputBox('InputBox в Delphi', 'Что вы больше всего любите?', ' Lessons World');
until test <> '';
ShowMessage('Я люблю — '+test);
end;
Ну вот теперь, нажав на кнопку у нас выведется сообщение с содержимым которое ввели в готовый Edit в InputBox.
 
Вверх Снизу