Application.MessageBox текст сообщения

[Polotenchik]

Можно ли как-нибудь вставить в Application.MessageBox текст из edit?

например:

Application.MessageBox('Число '+edit1.text+' введено не верно!','Ошибка',16)

Есть еще MessageDlg, но тут нельзя указать заголовок сообщений.

[psycho-coder]

Конечно можно

Application.MessageBox(PChar('Число '+edit1.text+' введено не верно!'),'Ошибка',16)

[Terran]

Procedure TForm1.Button1Click(Sender: TObject);
Begin
Application.MessageBox(PChar(Edit1.Text),PChar(Edit2.Text),16);
End;

[anGeee]

На главный вопрос уже ответили, а я добавлю немного насчет

Есть еще MessageDlg, но тут нельзя указать заголовок сообщений.

Вообще, можно. В Delphi определены две функции MessageDlg. Одна - в Dialogs, другая - в QDialogs. Функция, описанная в QDialogs имеет следующий вид - MessageDlg(Caption, Msg, DlgType, Buttons, HelpCtx, DefaultBtn, Bitmap). И если при использовании данной функции использовать DlgType=mtCustom, то заголовок берется из параметра Caption. То есть :

MessageDlg('Мой заголовок', 'Число' + Edit1.text + 'введено не верно',mtCustom,[mbOk],0);

[Polotenchik]

Спасибо всем большое!

[psycho-coder]

Сообщение от anGeee

На главный вопрос уже ответили, а я добавлю немного насчет
Вообще, можно. В Delphi определены две функции MessageDlg. Одна - в Dialogs, другая - в QDialogs. Функция, описанная в QDialogs имеет следующий вид - MessageDlg(Caption, Msg, DlgType, Buttons, HelpCtx, DefaultBtn, Bitmap). И если при использовании данной функции использовать DlgType=mtCustom, то заголовок берется из параметра Caption. То есть :

MessageDlg('Мой заголовок', 'Число' + Edit1.text + 'введено не верно',mtCustom,[mbOk],0);

ИМХО тут лучше использовать WinAPI функцию MessageBox;

int MessageBox(

    HWND hWnd,	// хендл родительского окна
    LPCTSTR lpText,	// сообщение
    LPCTSTR lpCaption,	// заголовок
    UINT uType 	// стиль кнопок и значков
   );

MessageBox(Form1.Handle, PChar('Число '+edit1.text+' введено не верно!'),'Ошибка', MB_OK + MB_ICONERROR) // Кнопка ок и значек ошибки

Подробней в хелпе, напишите в Delphi MessageBox. Поставьте на него курсор клавы и нажмите F1. Выбрать 1-й пункт.

[lega4]

Почти некропостинг, но:
Между messagedlg и messagebox есть два существенных (Для меня) различия: во-первых, у messagedlg в диалоге, к примеру [mbYes,mbNo], эти две кнопки располагаются по центру. А у messagebox - выровнены по правому краю. Мне бы хотелось видеть кнопочки в центре.
Во-вторых, при выборе специальной иконки, messagebox при появлении звенит стандартным виндовым звуком, соответствующим данной иконке, что сейчас мне абсолютно не нужно.

[Alter]

Сообщение от lega4

Почти некропостинг, но:
Между messagedlg и messagebox есть два существенных (Для меня) различия: во-первых, у messagedlg в диалоге, к примеру [mbYes,mbNo], эти две кнопки располагаются по центру. А у messagebox - выровнены по правому краю. Мне бы хотелось видеть кнопочки в центре.
Во-вторых, при выборе специальной иконки, messagebox при появлении звенит стандартным виндовым звуком, соответствующим данной иконке, что сейчас мне абсолютно не нужно.

Ну так сделайте на основе TForm свой диалог, так как вам нужно.