2012年6月25日 星期一

修改showmessage的字型

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;

沒有留言: