Delphi版本已升级到10.1,经过官方的不断努力,版本也趋于稳定,在跨平台及Anroid开发方面的进步确定非常大。因此本人也开始尝试学习FMX,尝试移动开发。
使用Delphi工具入门真的非常之精简,随便拖几个控件,切换下编译平台,点击运行,就要以在各个平台上跑起来。
但是今天在尝试在窗体上输出文字时,给难住了。
在VCL下,代码是这样的:
procedure TForm1.Button1Click(Sender: TObject);
var r:Trect;
s:string;
begin
r:=Rect(0,0,100,30);
s:='Hello World!';
Canvas.TextRect(r,s);
end;
根据以往习惯,我写成这样:
Canvas.FillText(RectF(0,0,100,30),'Hello World!',false,1,[],TTextAlign.Leading ,TTextAlign.Center );
结果运行后,窗体上没有任何变化,百思不得其解,后来经过D友帮助,才知道原来要加上两行代码:
<span style="color:#ff9966;">Canvas.BeginScene();</span>
Canvas.FillText(RectF(0,0,100,30),'Hello World!',false,1,[],TTextAlign.Leading ,TTextAlign.Center );
<span style="color:#ff9966;">Canvas.EndScene;</span>
运行,久违的"Hello World"终于显示出来了。