[Kaktuz]

Вообщем проблема в том что я не знаю как создать собственное окно сообщения с нужным мне заголовком, текстом, кнопками.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var Msg: Integer;
begin
Msg := MessageDlg('Custom dialog',mtCustom, [mbYes,mbNo], 0);
if Msg = mrYes then PostMessage(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
if Msg = mrNo  then ShowMessage('No');
end;

Пример есть. Но! Здесь кроме текста сообщения ничего (текстового) нельзя изменить. Тот же заголовок и кнопки Да/Нет. Возможно нужно пользоваться чем-то другим?

[angvelem]

В Дельфи юнит Dialogs.pas, смотрим класс InputQuery и переделываем под себя.

[lmikle]

Ну, фактически там просто Custom-форма создается динамически, а MessageDlg вызывает функцию WinAPI. Куда, кстати, тоже можно много чего накидать/изменить, но это сложно и долго. Быстрее просто создать свою форму, что я собственно и сделал, создавай аналог MessageDlg, выглядящий как в Win7.

[Kaktuz]

Вообщем получается проще создать новую форму с нужным стилем и т.п.

[angvelem]

Ну и, наверное, желательно создавать её универсальной, чтобы можно было на "лету" менять какие-то параметры.

[Kaktuz]

Это как на "лету" ?
Не вписывать туда значения, а создавать их при запуске?