剪切bmp:效果为指定的rect大小,若图片比rect小,则会放大. 都要uses Vcl.Imaging.jpeg; 需要注意的是FMX里也需要jpeg的支持,虽然没引用编译器不会报错,但用到jpg时会报内存错误. procedure TForm1.Button1Click(Sender: TObject); var Bitmap: TBitmap; MyRect1, MyOther: TRect; begin if self.OpenDialog1.Execute then begin My
delphi中类引用的使用实例 类引用类引用(Class Reference)是一种数据类型,有时又称为元类(MetaClass),是类的类型的引用.类引用的定义形式如下: class of type 例如: type SomeClass = class of TObject; var AnyObj: SomeClass; TObject = class end; TClass = class of TObject; 下面的例子说明了类引用的用法: program Project1; {$APP
刚接触到移动开发,很多不熟悉.配置好Android SDK后,如果用模拟器来调试程序的话,那速度会让人崩溃,我用的Nexus7平板,插上电脑,开启USB调试,但奇怪在Delphi里就是找不到设备.查看官方文档后,找到解决办法.首先确认Android SDK Manager 里Extral中的google usb driver是否有安装,然后在电脑的“设备管理器”里,找到android设备,"更新驱动程序“,驱动路径就是google usb driver的安装路径.搞定.