| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Messagebox [D7, 95/98, XP]

Khim ©   (2006-03-22 15:31:00) 

Доброе время суток!
Такой вопрос: как вставить свою иконку в Messagebox?
Помогите примерчиком, если можно, помедленнее - я записываю
Заранее пасиба!

---

Khim   (2006-03-22 16:34:00) [1]

Я не дуюсь, так как я редко спрашиваю помощь, ттока если сам не могу справиться. Учусь сам! Думаю своей головой!
Я наоборот говорю пасибо, что помогли

---

Leonid Troyanovsky   (2006-03-22 16:28:00) [2]

> Khim ©   (22.03.06 16:22) [9]


А чего ты дуешься?
Люди говорят спасибо Игорю.

Подучишься, будешь, как он учить других, и тебе скажут.

--
Regards, LVT.

---

Khim   (2006-03-22 16:22:00) [3]

Не все вы вылезли из пилёнок и начали программировать на Дельфи, Вы тоже когда-то учились

---

Ega23   (2006-03-22 16:19:00) [4]

> Игорь Шевченко ©   (22.03.06 15:44) [1]


Гм...  Любопытно...
Спасибо...

---

Khim   (2006-03-22 16:13:00) [5]

Пасибо,
седня разбирался с Messagedlg, усе получается, усе что- надо вставлял, тока иконка становилася поверх старой, старая не исчезала, Как начал MessageBox ковырять так сам сел!

---

Leonid Troyanovsky   (2006-03-22 16:05:00) [6]

> grisme ©   (22.03.06 15:54) [3]

> Игорь Шевченко ©   (22.03.06 15:44) [1]
> блин, сенькс тоже..)) спасибки...не знал про TMSGBOXPARAMS.


Тут не только MessageBoxIndirect, но обходится косяк
с загрузкой по имени (заменяется на идентификатор).

--
Regards, LVT.

---

Khim   (2006-03-22 15:59:00) [7]

Ну не знал и что?

---

Leonid Troyanovsky   (2006-03-22 15:59:00) [8]

> Khim ©   (22.03.06 15:31)  

> Такой вопрос: как вставить свою иконку в Messagebox?


Если NT/XP

http://groups.google.com/group/fido7.ru.delphi/msg/581e68b0c01ffe2a

--
Regards, LVT.

---

grisme   (2006-03-22 15:54:00) [9]

Игорь Шевченко ©   (22.03.06 15:44) [1]
блин, сенькс тоже..)) спасибки...не знал про TMSGBOXPARAMS.)

---

Khim   (2006-03-22 15:47:00) [10]

Пасибо большое!,
буду разбираться,
Если будут вопросы попробую спростить еще раз
Еще раз пасибо!

---

Игорь Шевченко   (2006-03-22 15:44:00) [11]

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

end.

add.rc

#include "add.rh"

MY_ICON ICON "main.ico"


add.rh
#define MY_ICON 7

---

Наверх