MessageBoxIndirect - don t work

← →
Prov © (2003-11-06 09:35) [0]

Доброго время суток, господа.
Возникла проблема с окном сообщения !!!
Ниже приведён код, всё хорошо, только на диалоге не висит моя иконка(что, собсно, и требуется)
А код ошибки такой - указанный образ не найден в файле ресурсов, но такой ресурс есть.
Как мне быть ? Помогите советом...

procedure TForm1.Button1Click(Sender: TObject);
var Msg: TMSGBOXPARAMS;
begin
with Msg do
begin
Msg.cbSize:= SizeOf(Msg);
Msg.hwndOwner:= Handle;
Msg.hInstance:= hInstance;
Msg.lpszText:= "Test message box with user defined icon";
Msg.lpszCaption:= "TestMessage";
Msg.dwStyle:= MB_USERICON;
Msg.lpszIcon:= "MAINICON";
Msg.dwContextHelpId:= 0;
Msg.lpfnMsgBoxCallback:= nil;
Msg.dwLanguageId:= LANG_NEUTRAL;
end;
MessageBoxIndirect(Msg);
Showmessage(SysErrorMessage(GetLastError));
end;

← →
Prov © (2003-11-06 12:53) [1]

Ув. мастера, разве никто не знает ответа на этот простенький вопрос ?

← →
_none_ © (2003-11-06 13:39) [2]

странно... не выходит ничего...
единственное, чего смог добиться - это вывод системных иконок
Msg.hInstance := 0;
Msg.lpszIcon := IDI_APPLICATION; //или др.

у тебя, кстати, ошибка - ты присваиваешь
hInstance у msg самому себе...;

← →
Игорь Шевченко © (2003-11-06 13:41) [3]

1) Убрать with Msg
2) c иконкой 16х16х16 работает

← →
Prov © (2003-11-06 14:36) [4]

Спасибо большое, буду пробовать... А можно попросить у Вас обьяснение, почему нужно убрать msg ? Потому что в некоторых случаях нужно так поступать, а в некоторых - нет. Заранее благодарен

← →
Игорь Шевченко © (2003-11-06 14:58) [5]

Prov © (06.11.03 14:36)

F1

Ничего не получилось, всё равно говорит, что не найден такой ресурс.... Какие будут ещё предлжения ?

implementation

{$R *.DFM}
{$R ADD.RES}

procedure TForm1.Button1Click(Sender: TObject);
var Msg: TMSGBOXPARAMS;
begin
Msg.cbSize:= SizeOf(Msg);
Msg.hwndOwner:= Handle;
Msg.hInstance:= hInstance;
Msg.lpszText:= "Test message box with user defined icon";
Msg.lpszCaption:= "TestMessage";
Msg.dwStyle:= MB_USERICON;
Msg.lpszIcon:= MakeIntResource(7);
Msg.dwContextHelpId:= 0;
Msg.lpfnMsgBoxCallback:= nil;
Msg.dwLanguageId:= LANG_NEUTRAL;
MessageBoxIndirect(Msg);
Showmessage(SysErrorMessage(GetLastError));
end;

Add.rc:

#include "add.rh"

HS_ICON ICON "hs_main.ico"

Add.rh

#define HS_ICON 7

MessageBoxIndirect - don t work Найти похожие ветки