from : Tform;
from := CreateMessageDialog(str, mtInformation, [mbOK]);
try
from.font.size := 12;
from.AutoSize := True;
with from do
begin
lab := TLabel(FindComponent('Message')) ;
if lab <> nil then
begin
lab.Font.Color := clNavy ; //你要的顏色在這裡設
lab.Font.Size := 12;
end ;
from.ShowModal;
end;
finally
from.free;
end;
沒有留言:
張貼留言