[wymkent]

можно ли в showmessage вставить картинку или иконку?

[Aristarh Dark]

Нет, делай своё окошко, там нет ничего сложного.

[NumLock]

Код:

  MessageBox(Handle, 'MB_ICONINFORMATION', 'MessageBox', MB_OK or MB_ICONINFORMATION);
  MessageBox(Handle, 'MB_ICONWARNING', 'MessageBox', MB_OK or MB_ICONWARNING);
  MessageBox(Handle, 'MB_ICONERROR', 'MessageBox', MB_OK or MB_ICONERROR);
  MessageBox(Handle, 'MB_ICONQUESTION', 'MessageBox', MB_OKCANCEL or MB_ICONQUESTION);

[DOR]

Подскажите пжл как можно скрестить MessageBox с текстбоксом

MessageBox(Handle,'привет' + tb_Sum.Text, 'привет.', MB_OK or MB_ICONINFORMATION);

[lmikle]

есть функция InputQuery. Но это без картинок.

[ChinYan]

Inputbox еще

[NumLock]

Код:

MessageBox(Handle, PChar('Привет '+Edit1.Text), 'Привет', MB_OK or MB_ICONINFORMATION);

[Heneken]

1. - Создай панель(форму) и оформи ее как желаешь.(visible=false)по умолку
2.-Создай глобальную переменную типа целого числа(Integer)
Например click_butt;
3. Перед вызовом своей панели ВСЕГДА обнуляй глобалку click_butt:=0;
4. Перед тем как сделать панель видимой visible:=true настрой и запиши и вставь текст,картинку..короче приведи панель в нужный ТЕБЕ ВИД
5. Далее 2 строчки кода

ПАНЕЛЬ.visible:=true;
While click_butt=0 do application.ProcessMessages;
//В этом месте вход в бесконечный цикл и пока переменная равна нулю компиллер не пойдет по коду расположенному ниже
While click_butt=0 do application.ProcessMessages
и будет соответсвенно ждать твоих действий поскольку click_butt=0

Как только click_butt>0 мы выйдем из цикла..

.... пишем обработку
.......
While click_butt=0 do application.ProcessMessages;

case click_butt of
1:Действие 1;
2:Действие 2;
......
1000000:Милионное действие;
end;

Параметры click_butt изменяй кнопками на своей же новоиспеченной панели(форме). И не забывай про Enabled остальных компонентов чтобы пользователь не ушел от ответа=)

[DOR]

Всем спасибо за ответы.