[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;

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