Текущий архив: 2006.04.09;
Скачать: CL | DM;

Вниз

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]

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


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

---

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

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

---

← →
Leonid Troyanovsky ©   (2006-03-22 16:28) [10]

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


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

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

--
Regards, LVT.

---

← →
Khim ©   (2006-03-22 16:34) [11]

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

---

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

Текущий архив: 2006.04.09;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.037 c