Текущий архив: 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.46 MB
Время: 0.011 c
