Скачать: CL | DM;

Как в MessageBox вставить свою иконку ?   Найти похожие ветки 

← →
Klopan   (2004-04-11 21:40) [0]

Как в MessageBox вставить свою иконку ?

MessageBox(0,"Test","About",MB_ICONINFORMATION);

---

← →
DrPass ©   (2004-04-11 21:59) [1]

Почему ты так уверен, что это вообще можно?

---

← →
Klopan   (2004-04-11 22:12) [2]

В ShellAbout можно...

Но тоже ошибка!?!?

---

← →
Yanis ©   (2004-04-11 23:47) [3]

CreateMessageDialog

---

← →
Pat ©   (2004-04-12 00:21) [4]

>Но тоже ошибка!?!?
uses ShellApi?

---

← →
Игорь Шевченко ©   (2004-04-12 01:04) [5]

> Как в MessageBox вставить свою иконку ?


{$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);
end;

файл ADD.RC
#include "add.rh"

HS_ICON ICON "hs_main.ico"

файл ADD.RH
#define HS_ICON 7



---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c