изменить цвет в диалоговом окне MessageDlg

[Михаил Юрьевич]

Подскажите ,как изменить цвет в диалоговом окне ,типа MessageDlg

[vitalik007]

а если форму вместо msgdialog создать?

[Михаил Юрьевич]

Сообщение от vitalik007

а если форму вместо msgdialog создать?

Я тоже так думаю,это наверное будет проще

[Alar]

MessageDlg - кликай!

Можно передать значение DialogType, значение Buttons

[Terran]

Изменить цвет можно так:

procedure TForm1.Button1Click(Sender: TObject);
var
f: TForm;
begin
f := Dialogs.CreateMessageDialog('HELLOWORLD', dialogs.mtInformation, dialogs.mbOKCancel);
f.Color := clBlue;
f.Font.Color := clLime;
if f.ShowModal = mrOk then
ShowMessage('OK Pressed, OK wurde gedruckt')
else
ShowMessage('Cancel pressed. Abbrechen wurde gedruckt');
end;

[FaTaL]

Как изменить в MessageDlg капшены кнопок? Они ведь по умолчанию на инглише.
Заранее благодарен.

[Editor]

Народ рас уж тему завели то возьмём к примеру код

var
buttonSelected : Integer;
begin
buttonSelected := MessageDlg('Confirmation',mtError, mbOKCancel, 0);
if buttonSelected = mrOK then ShowMessage('Была нажата OK');
if buttonSelected = mrCancel then ShowMessage('Была нажата Cancel');
end;

как зделать так чтоб вылетало сообщение об ошибке но чтоб вверху за место Error я мог чёнить своё написать?

[Terran]

Своё написать можно так:

procedure TForm1.Button1Click(Sender: TObject);
begin
MessageBox(0,'Текст сообщения','Заголовок',16);
end;

Изменяя цифру 16 на 17 и т.д. можно изменять вид сообщения и его кнопки.
С цифры 16 и далее это сообщения об ошибке.
С 32 и далее, сообщение о подтверждении.
С 48 и далее, сообщение предупреждения.
С 64 и далее, сообщение информации.

[Editor]

Terran благодарю...