Использование MessageBoxIndirect.

← →
Forelli (2004-08-11 22:55) [0]

Есть проблема. В свойство hInstance задаю HINstance, dwStyle:=MB_USERICON; Ресурс с иконкой прикреплён к проекту директивой {$R resource.res}. А вот что задавать в свойстве lpszIcon? Что только не перепробовал! Ничего не работает. Сообщение вылазит, а иконки нет.

← →
Cobalt © (2004-08-12 00:46) [1]
Вообще-то он объявлен, как PAnsiChar...

А что ты этому полю присваивал?

← →
GuAV © (2004-08-12 01:46) [2]

> Ресурс с иконкой прикреплён к проекту директивой {$R resource.res}.
>

А как иконка обозавна? если обозавна числом, например 100 то PAnsiChar(100), если текстом, например ICON1, то "ICON1"

← →
Игорь Шевченко © (2004-08-12 09:58) [3]
unit main; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end; var Form1: TForm1; 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; end.

add.rc
#include "add.rh" HS_ICON ICON "hs_main.ico"

add.rh
#define HS_ICON 7

← →
ALS © (2004-08-12 11:20) [4]
if Win32Platform = VER_PLATFORM_WIN32_NT then PWideChar(MSGBOXPARAMS.lpszIcon) := "MAINICON" else MSGBOXPARAMS.lpszIcon := "MAINICON";

← →
Игорь Шевченко © (2004-08-12 11:28) [5]
ALS © (12.08.04 11:20) [4]

Зачем ? Вызывается же messageBoxIndirectA

← →
ALS © (2004-08-12 11:40) [6]
>Игорь Шевченко © (12.08.04 11:28) [5]
Help - Windows SDK - MessageBoxIndirect - Quick info:
Unicode WinNT

Если обращаться к ресурсу по имени, без приведения типа к PWideChar под W2000,D5,D6 у меня иконка не появляется

← →
Игорь Шевченко © (2004-08-12 12:28) [7]
ALS © (12.08.04 11:40) [6]

> Help - Windows SDK - MessageBoxIndirect - Quick info:
> Unicode WinNT

MessageBoxIndirect: Unicode: Implemented as Unicode and ANSI versions on Windows NT, Windows 2000, Windows XP

MSGBOXPARAMS: Unicode: Implemented as Unicode and ANSI versions on Windows NT, Windows 2000, Windows XP

http://msdn.microsoft.com

Однако, твоя правда, иконка по имени не показывается до тех пор, пока ее в Unicode не переведешь.
Причем, такое поведение заложено в Windows, так как внутри MessageBoxIndirect все время вызывается LoadIconW, вне зависимости от того, какая из функций MessageBoxIndirectA или MessageBoxIndirectW вызвана.

Баг-с.

Использование MessageBoxIndirect. Найти похожие ветки