form-create

1、override overload reintroduce的中文叫法是什么？ override：覆盖；overload：重载；Reintroduce：重定义 2、在子类中override或overload父类中的动态或虚拟方法后是否会改变父类中的相应方法？ 不会 3、self是怎么回事，怎么使用？ Self因为这这个对象本身，例如，在TForm1的OnCreate事件中写Self指的是TForm1实例化后的对象，如果TForm1上有一个TButton叫做Button1，那么OnButton1Click中写的Self也是TForm1实例化后的对象， 4、reintroduce与override overload有何区别，怎么使用？ 在子孙类中要声明一个与祖先类中参数不同的方法的时候用Reintroduce， 但需要重新定义一个祖先类总的虚拟的或者动态的方法的时候，要用到Override；如果祖先类中的方法不是虚拟的或者动态的（定义的时候有virtual；就是虚拟的，有dynamic；就是动态的）；那么是没有办法override的 至于Overload，一般适用于定义一组不同参数的函数，这些函数也可以不是Of Objects（中文该怎么说？）。 reintroduce引入是为了屏蔽父类的一个虚方法,而在子类中生成一个新的方法;overload是为了处理同名的方法有不同的参数而设计的

相关资料： https://stackoverflow.com/questions/10291330/firemonkey-penmode-equivalent-drawline https://blog.csdn.net/shuaihj/article/details/8444676 http://www.delphitop.com/html/FMX/2646.html http://docwiki.embarcadero.com/CodeExamples/Rio/en/FMXTCanvasDrawFunctions_(Delphi) CSDN代码下载： https://download.csdn.net/download/zhujianqiangqq/12394005 代码实例： 1 { 2 相关资料： 3 http://www.delphitop.com/html/FMX/2646.html 4 http://docwiki.embarcadero.com/CodeExamples/Rio/en/FMXTCanvasDrawFunctions_(Delphi) 5 6 FMX 的 Canvas 在不同的系统上会分别使用: 7 WinVista、Win7: D2D (FMX.Canvas.D2D.pas) 8 WinXP: GDI+ (FMX.Canvas.GDIP.pas)

代码下载： https://download.csdn.net/download/zhujianqiangqq/12394576 代码实例： 1 unit Unit1; 2 3 interface 4 5 uses 6 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 7 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls; 8 type 9 TCanvasData = record // 定义绘制数据数组 10 // 画笔可设置的参数 11 PenStartSize: Integer; // 画笔开始大小 12 PenMinSize: Integer; // 画笔最小大小 13 PenMaxSize: Integer; // 画笔最大大小 14 PenMobileBorder: Integer; // 移动界限，超过这个值就改变笔大小值 15 PenChangeValue: Integer; // 画笔每次改变的大小 16 PenSizeChangeSpeed: Integer; // 笔的改变速度，越小改变的速度越快 17 // 画图用到的参数 18

代码下载： https://download.csdn.net/download/zhujianqiangqq/12394579 代码实例： 1 unit Unit1; 2 3 interface 4 5 uses 6 System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, 7 FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects, 8 FMX.Controls.Presentation, FMX.StdCtrls, FMX.Edit; 9 10 type 11 TCanvasData = record // 定义绘制数据数组 12 // 画笔可设置的参数 13 PenStartSize: Integer; // 画笔开始大小 14 PenMinSize: Integer; // 画笔最小大小 15 PenMaxSize: Integer; // 画笔最大大小 16 PenMobileBorder: Integer; // 移动界限，超过这个值就改变笔大小值 17 PenChangeValue: Integer; // 画笔每次改变的大小 18 PenSizeChangeSpeed:

这两个函数具体应用如下：SetWindowLong函数GetWindowLong函数 Delphi窗口化游戏 var Thwnd:HWND;//声明变量 句柄变量 devmodel1:DEVMODE;//屏幕分辨率变量 style,exstyle:longint;//窗口属性变量 begin //得到游戏句柄 Thwnd:findwindow('CLIENT',nil); //设置分辨率 if EnumDisplaySettings(0,0,devmode1)then 　　begin 　　　　devmode1.dmPelsWidth:1024; devmode1.dmPelsHeight:=768; devmode1.dmBitsPerPel:=32; devmode1.dmDisplayFrequency:=75; 　　　　ChangeDisplaySetting(devmode1,0); end; //得到窗口原来的属性 style:=GetWindowLong(Thwnd,GWL_STYLE); //定义新属性 style:=WS_OVERLAPPEDWINDOW or WS_VISIBLE; //更改窗口属性 SetWindowLong(Thwnd,GWL_STYLE,style); //得到窗口扩展属性 exstyle:=GetWindowLong(Thwnd,GWL