Messagebox

← →
Khim © (2006-03-22 15:31) [0]

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

← →
Игорь Шевченко © (2006-03-22 15:44) [1]

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

← →
Khim © (2006-03-22 15:47) [2]

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

← →
grisme © (2006-03-22 15:54) [3]

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

← →
Khim © (2006-03-22 15:59) [4]

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

← →
Leonid Troyanovsky © (2006-03-22 15:59) [5]

> Khim © (22.03.06 15:31)

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

Если NT/XP

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

--
Regards, LVT.

← →
Leonid Troyanovsky © (2006-03-22 16:05) [6]

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

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

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

--
Regards, LVT.

← →
Khim © (2006-03-22 16:13) [7]

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

← →
Ega23 © (2006-03-22 16:19) [8]

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

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

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

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

--
Regards, LVT.

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

Messagebox Найти похожие ветки