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

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

Как у MessageDlg сделать фон к примеру Белым? [D7, WinXP]

Starcom ©   (2005-08-10 21:25:00) 

Привет Мастера!

Как у MessageDlg сделать фон к примеру Белым?

Есть соображения!

С Уважением Starcom! ;-()

---

Starcom   (2005-08-22 07:34:00) [1]

Привет Мастера!

[7]- Сделал, все О'кей!

Eraser ©   (20.08.05 18:28) [14]

[5]- Немогу разобратся как использовать, можно поподробнее
типа: Создать форму, кинуть на неё кнопку, и.т.д... А?
(Чёто аж мурашки бегут, я ли это!(Насчёт вопроса ламерского)).

С Уважением Starcom! ;-()

---

Eraser   (2005-08-20 18:28:00) [2]

Starcom   (20.08.05 18:05) [13]

[5], [7]

---

Starcom   (2005-08-20 18:05:00) [3]

Ау Мастерам! :(

---

Starcom   (2005-08-18 22:01:00) [4]

jack128 ©   (18.08.05 15:28) [11]

Да я блин нафиг нифига не понял, написал данную финкцию
но нифига не прёт, т.е вызвать функцию не могу ...
и где там цвет фона ? (типо чё за бред - про меня!!!)

С Уважением Starcom! :(

---

jack128   (2005-08-18 15:28:00) [5]

Starcom   (18.08.05 15:21)  
То есть [5] тебя ну никак не устраивает???

---

Starcom   (2005-08-18 15:21:00) [6]

Наиль ©   (18.08.05 08:55) [9]

Спасибо! Посмотрю! :)

---

Наиль   (2005-08-18 08:55:00) [7]

Статья по теме:
http://skycity.dem.ru/Text/msgdlg.htm

---

Starcom   (2005-08-18 06:50:00) [8]

Всем спасибо за новые советы!

Eraser ©   (18.08.05 02:22) [7]
Честно говоря я об этом подразумевал, но хотелось узнать
ваше мнение! Придётся так и сделать (своё окно)

TG ©   (18.08.05 02:20) [6]
А различные компоненты, енто шо за це таке, А?

С Уважением Starcom! :)

---

Eraser   (2005-08-18 02:22:00) [9]

Starcom   (10.08.05 21:25)

Сделай своё окно типа MessageDlg.

---

TG   (2005-08-18 02:20:00) [10]

Попробуй различные компоненты для Delphi

---

Ученик   (2005-08-10 23:15:00) [11]


function ColorMessageDlg(const Msg: string; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons; HelpCtx: Longint; aColor: TColor): Integer;
begin
 with CreateMessageDialog(Msg, DlgType, Buttons) do try
   Color := aColor;
   HelpContext := HelpCtx;
   Position := poScreenCenter;
   Result := ShowModal
 finally
   Free
 end
end;



---

Starcom   (2005-08-10 23:00:00) [12]

Ученик   (10.08.05 22:23) [2]

Попробовал, не вкусно!
Разжуй если мона...
(Шютка!!! нифига он не белый):(

---

Starcom   (2005-08-10 22:35:00) [13]

palva ©   (10.08.05 22:12) [1]

Тоже вариант! :)

---

Ученик   (2005-08-10 22:23:00) [14]

>Starcom   (10.08.05 21:25)  

Из Dialogs.pas



function MessageDlg(const Msg: string; DlgType: TMsgDlgType;
 Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;
begin
 Result := MessageDlgPosHelp(Msg, DlgType, Buttons, HelpCtx, -1, -1, '');
end;

function MessageDlgPosHelp(const Msg: string; DlgType: TMsgDlgType;
 Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer;
 const HelpFileName: string): Integer;
begin
 with CreateMessageDialog(Msg, DlgType, Buttons) do
   try
     HelpContext := HelpCtx;
     HelpFile := HelpFileName;
     if X >= 0 then Left := X;
     if Y >= 0 then Top := Y;
     if (Y < 0) and (X < 0) then Position := poScreenCenter;
     Result := ShowModal;
   finally
     Free;
   end;
end;



---

palva   (2005-08-10 22:12:00) [15]

Свойства рабочего стола - Оформление - Рельефные объекты - выбрать белый цвет.

---

Наверх