Форум: "WinAPI";
Текущий архив: 2004.01.09;
Скачать: [xml.tar.bz2];
Вниз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
← →
Prov (2003-11-06 16:44) [6]Ничего не получилось, всё равно говорит, что не найден такой ресурс.... Какие будут ещё предлжения ?
← →
Игорь Шевченко (2003-11-06 17:19) [7]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
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2004.01.09;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c