Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "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
14-25537
Alex_Bredin
2003-12-19 10:06
2004.01.09
Счетчик трафика


14-25613
Думкин
2003-12-17 07:34
2004.01.09
С днем рождения! 17 декабря.


14-25504
вопросник
2003-12-15 20:47
2004.01.09
Как расшифровывается ИМХО?


14-25525
kingdom
2003-12-17 18:25
2004.01.09
Ищу сайт по Java такой же хороший как Delphi Mastak


14-25609
Kerk
2003-12-16 12:49
2004.01.09
Пасхальное яйцо





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский