Вообщем проблема в том что я не знаю как создать собственное окно сообщения с нужным мне заголовком, текстом, кнопками.
Код:
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;
Пример есть. Но! Здесь кроме текста сообщения ничего (текстового) нельзя изменить. Тот же заголовок и кнопки Да/Нет. Возможно нужно пользоваться чем-то другим?