showmessage显示的字颜色 能改变吗？不能，怎样实现能变的。

Question

showmessage显示的字颜色 能改变吗？不能，怎样实现能变的。

Answer 1

你看一下showmessage的方法怎么实现的，你就知道能不能变了？

Answer 2

自己画一个窗体，例如
procedure TForm1.Button1Click(Sender: TObject);
begin
form2:=Tform2.Create(Application);
form2.ShowModal;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
ShowMessage('程序即将关闭');
form2.ModalResult:=mrOk;
end;既然是form，那字体你想怎么改怎么改了