Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.02.2009, 23:24   #1
Port 111
Пользователь
 
Регистрация: 12.01.2009
Сообщений: 34
По умолчанию Как вызвать Message с Edit'ом?

Здравствуйте...
Есть такой вопрос мне необходимо вызвать Message с Edit'ом и кнопкой. Новую форму создавать не хочется, и еще надо чтобы пока не нажал кнопку на Message управление не передавалось главному окну.
Надеюсь понятно объяснил.
Заранее спасибо.
Port 111 вне форума Ответить с цитированием
Старый 01.02.2009, 23:27   #2
elsin
Пользователь
 
Регистрация: 10.05.2008
Сообщений: 36
По умолчанию

Код:
showmessage(edit.text);
elsin вне форума Ответить с цитированием
Старый 01.02.2009, 23:33   #3
Port 111
Пользователь
 
Регистрация: 12.01.2009
Сообщений: 34
По умолчанию

Не с текстом из edit'a, а чтобы там был edit в который пользователь должен ввести значение.
Port 111 вне форума Ответить с цитированием
Старый 01.02.2009, 23:56   #4
Terran
Участник клуба
 
Аватар для Terran
 
Регистрация: 28.11.2007
Сообщений: 1,521
По умолчанию

Цитата:
Сообщение от Port 111 Посмотреть сообщение
Не с текстом из edit'a, а чтобы там был edit в который пользователь должен ввести значение.
Можете сделать так:
Код:
Procedure TForm1.Button1Click(Sender: TObject);
Var
S: String;
Begin
S:=InputBox('Ввод','ввод текста','');
{Переменная:=InputBox(Заголовок,Подсказка,Значение);}
End;
Всегда рад помочь!
Terran вне форума Ответить с цитированием
Старый 02.02.2009, 00:08   #5
Port 111
Пользователь
 
Регистрация: 12.01.2009
Сообщений: 34
По умолчанию

То что надо, огромное спасибо....
Port 111 вне форума Ответить с цитированием
Старый 02.02.2009, 00:10   #6
Port 111
Пользователь
 
Регистрация: 12.01.2009
Сообщений: 34
По умолчанию

А еще вопрос, как в таком окне ограничить вводимые символы?
То есть мне надо чтобы в это поле можно было вводить только цифры.
Port 111 вне форума Ответить с цитированием
Старый 02.02.2009, 00:12   #7
Port 111
Пользователь
 
Регистрация: 12.01.2009
Сообщений: 34
По умолчанию

Нашел...в справке
function InputBox(const ACaption, APrompt: WideString; ADefault: Integer; Min: Integer = Low(Integer); Max: Integer = High(Integer); Increment: Integer = 1): Integer;

Но не понял как это реализовать....помогите плиз!

Последний раз редактировалось Port 111; 02.02.2009 в 00:35.
Port 111 вне форума Ответить с цитированием
Старый 02.02.2009, 02:18   #8
Noor
Участник клуба
 
Аватар для Noor
 
Регистрация: 01.11.2006
Сообщений: 1,082
По умолчанию

Попробуй так

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  InputString, DefaultString: string;
  Temp: integer;
begin
  DefaultString:='Введите число';
  repeat
    repeat
      InputString:= InputBox('Input Box', 'Ввод данных', DefaultString);
      if InputString = DefaultString then break;
      DefaultString:='Ошибка ввода. Введите число';
    until TryStrToInt(InputString, Temp);
    // Здесь можно ввести дополнительные проверки на ввод
    // и в случае достижения необходимого результата
    // воспользоваться оператором break. Пример:
    if MessageDlg('Вас это устраивает?',
     mtConfirmation, [mbYes, mbNo],  0) = mrYes then break;
  until false;
end;
Noor вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как программно вызвать Dial Up Helg Работа с сетью в Delphi 4 01.04.2009 23:05
проблема с пустым edit'ом SMERSH Помощь студентам 2 15.09.2008 19:26
Как вызвать прерывание в Delphi? Andrew Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 10 24.05.2007 17:17
Как вызвать процедуру ??? Marat Помощь студентам 8 02.03.2007 15:11