Форум: "Основная";
Текущий архив: 2005.09.11;
Скачать: [xml.tar.bz2];
Вниз
Как у MessageDlg сделать фон к примеру Белым? Найти похожие ветки
← →
Starcom (2005-08-10 21:25) [0]Привет Мастера!
Как у MessageDlg сделать фон к примеру Белым?
Есть соображения!
С Уважением Starcom! ;-()
← →
palva © (2005-08-10 22:12) [1]Свойства рабочего стола - Оформление - Рельефные объекты - выбрать белый цвет.
← →
Ученик (2005-08-10 22:23) [2]>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;
← →
Starcom (2005-08-10 22:35) [3]palva © (10.08.05 22:12) [1]
Тоже вариант! :)
← →
Starcom (2005-08-10 23:00) [4]Ученик (10.08.05 22:23) [2]
Попробовал, не вкусно!
Разжуй если мона...
(Шютка!!! нифига он не белый):(
← →
Ученик (2005-08-10 23:15) [5]
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;
← →
TG © (2005-08-18 02:20) [6]Попробуй различные компоненты для Delphi
← →
Eraser © (2005-08-18 02:22) [7]Starcom (10.08.05 21:25)
Сделай своё окно типа MessageDlg.
← →
Starcom (2005-08-18 06:50) [8]Всем спасибо за новые советы!
Eraser © (18.08.05 02:22) [7]
Честно говоря я об этом подразумевал, но хотелось узнать
ваше мнение! Придётся так и сделать (своё окно)
TG © (18.08.05 02:20) [6]
А различные компоненты, енто шо за це таке, А?
С Уважением Starcom! :)
← →
Наиль © (2005-08-18 08:55) [9]Статья по теме:
http://skycity.dem.ru/Text/msgdlg.htm
← →
Starcom (2005-08-18 15:21) [10]Наиль © (18.08.05 08:55) [9]
Спасибо! Посмотрю! :)
← →
jack128 © (2005-08-18 15:28) [11]Starcom (18.08.05 15:21)
То есть [5] тебя ну никак не устраивает???
← →
Starcom (2005-08-18 22:01) [12]jack128 © (18.08.05 15:28) [11]
Да я блин нафиг нифига не понял, написал данную финкцию
но нифига не прёт, т.е вызвать функцию не могу ...
и где там цвет фона ? (типо чё за бред - про меня!!!)
С Уважением Starcom! :(
← →
Starcom (2005-08-20 18:05) [13]Ау Мастерам! :(
← →
Eraser © (2005-08-20 18:28) [14]Starcom (20.08.05 18:05) [13]
[5], [7]
← →
Starcom (2005-08-22 07:34) [15]Привет Мастера!
[7]- Сделал, все О"кей!
Eraser © (20.08.05 18:28) [14]
[5]- Немогу разобратся как использовать, можно поподробнее
типа: Создать форму, кинуть на неё кнопку, и.т.д... А?
(Чёто аж мурашки бегут, я ли это!(Насчёт вопроса ламерского)).
С Уважением Starcom! ;-()
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.09.11;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.011 c
