[Kaktuz]

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

Код:

1 2 3 4 5 6 7

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]

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

[ChinYan]

То есть свой текст, заголовок и кнопки. В Джаве кстати есть такая фича - CustomDialogBox вроде. можно не только свой текст и заголовок, но и тексты кнопок (и их количество) функция возвращает номер кнопки

[Kaktuz]

Вот нашел неплохой пример:

Код:

1	Application.MessageBox('Текст сообщения','Заголовок', mb_iconwarning or mb_ok);

[NumLock]

MessageBox function

int WINAPI MessageBox(
__in_opt HWND hWnd,
__in_opt LPCTSTR lpText,
__in_opt LPCTSTR lpCaption,
__in UINT uType
);

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

[v1s2222]

Как вариант, чем Вам не подходит?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

var I:integer; begin   with CreateMessageDialog('message', mtConfirmation, [mbYes, mbCancel]) do     try     for i := 0 to componentcount - 1 do begin        if components[i].classname = 'TButton' then           if (components[i] as TButton).modalResult = mrYes then             (components[i] as TButton).caption := 'A';          if components[i].classname = 'TButton' then           if (components[i] as TButton).modalResult = mrcancel then             (components[i] as TButton).caption := 'B';     end;       Caption := 'aaa';       ShowModal;     finally       Release;     end;

Просто заменяем заголовки кнопок.
События отлавливай через ShowModal.