Как вызвать Message с Edit'ом?

[Port 111]

Здравствуйте...
Есть такой вопрос мне необходимо вызвать Message с Edit'ом и кнопкой. Новую форму создавать не хочется, и еще надо чтобы пока не нажал кнопку на Message управление не передавалось главному окну.
Надеюсь понятно объяснил.
Заранее спасибо.

[elsin]

showmessage(edit.text);

[Port 111]

Не с текстом из edit'a, а чтобы там был edit в который пользователь должен ввести значение.

[Terran]

Сообщение от Port 111

Не с текстом из edit'a, а чтобы там был edit в который пользователь должен ввести значение.

Можете сделать так:

Procedure TForm1.Button1Click(Sender: TObject);
Var
S: String;
Begin
S:=InputBox('Ввод','ввод текста','');
{Переменная:=InputBox(Заголовок,Подсказка,Значение);}
End;

[Port 111]

То что надо, огромное спасибо....

[Port 111]

А еще вопрос, как в таком окне ограничить вводимые символы?
То есть мне надо чтобы в это поле можно было вводить только цифры.

[Port 111]

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

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

[Noor]

Попробуй так

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;