Форматируем вывод сообщения Message

Приветсвую всех!
Сегодня мы решим ещё одну проблему. Зачастую необходимо сделать форматированный вывод текста в MessageDlg. Если это сделать не получается, то можно сделать дополнительную форму, но это займет много времени и программа будет весить больше.

Однако ,оказывается, что некоторые параметры MessageDlg довольно легко изменить как в коде, представленном ниже:

 procedure TForm1.Button1Click(Sender: TObject); 
var
  f: TForm;
begin
  f := Dialogs.CreateMessageDialog('SourceExpert.Blogspot.com! Вам нравится?', dialogs.mtInformation, [mbYEs,mbNo]);
  f.Color := clBlack;
  f.Font.Color := clLime;
  if f.ShowModal = mrOk then
    ShowMessage('Это хорошо:)')
  else
    ShowMessage('Жаль:(');
end;

Как видите, все довольно просто. Компилируем и смотрим наше "творение":)


Мне осталось лишь попрощаться с вами до следующего урока и пожелать
Удачи! SourceExpert.Blogspot.com