2022-12-24 76 0

创建Win桌面快捷方式，实现360桌面图标数字提示 或 类似安卓的右上角的数字提示 // 引用单元 uses Winapi.ShlObj, System.Win.ComObj, Winapi.ActiveX, System.Win.Registry;//参数说明 运行参数，快捷方式图标，备注，快捷快捷方式名，开始菜单快捷方式名procedure NewLink(AppExe, AIco, Remark, DesktopLnk:String; MenuName: String = ''

2022-12-24 68 0

delphi 安卓原生的Toast温柔提示有时候我们写程序要给用户一个提示，但是又不想让用户点击。为了更好的客户体验，可以试试安卓原生的温柔提示。//要用到的单元uses Androidapi.JNI.Widget, Androidapi.Helpers;//使用方法procedure TForm1.Button1Click(Sender: TObject);var AToast: JToast;begin AToast:= TJToast.JavaClass.makeText(TAndro

2022-12-24 60 0

delphi fmx 安卓跳转到支付宝付款页面//要用到的单元uses Androidapi.JNI.GraphicsContentViewText, Androidapi.JNI.Net, Androidapi.Helpers;//使用方法procedure TForm1.Button1Click(Sender: TObject);var AInte: JIntent; AUrl: Jnet_Uri;begin //打开支付宝付款页面 AUrl := StrToJURI('

2022-12-24 54 0

// 要用到的单元usesAndroidapi.JNI.GraphicsContentViewText, Androidapi.Helpers;procedure TForm1.Button1Click(Sender: TObject);varAIntent: JIntent;ACode, AUrl:string;beginACode:='fkx02276cbc6y0wchg5cac3';//如：以上为我的支付宝二维码 www.delphifmx.comAUrl:='inte

2022-12-24 84 0

需要注意的是，open一般用于查询（select），exesql用于修改，插入，删除（update，insert，delete）增加with dm.DataModule1.ADOQuery1 do begin close; sql.Clear; sql.Add('insert into 表 (字段1,字段2,字段3) values(:a,:b,:c)');//前面的字段就是需要增加的 parameters.ParamByName('a').Val

2022-12-24 58 0

// 要用到的单元usesAndroidapi.JNI.GraphicsContentViewText, Androidapi.Helpers;procedure TForm1.Button1Click(Sender: TObject);varAIntent: JIntent;ACode, AUrl:string;beginACode:='fkx02276cbc6y0wchg5cac3';//如：以上为我的支付宝二维码 www.delphifmx.comAUrl:='inte

2022-12-24 30 0

procedure Tdm.DataModuleCreate(Sender: TObject);begintry FDConnection1.Connected := False; FDConnection1.Params.Database := ExtractFileDir(ParamStr(0)) + '\mdb\' + 'code.mdb'; FDConnection1.Connected := True;//FDConnection1.Close;//FDC

2022-12-24 88 0

procedure TFrmain.scGPEdit1Change(Sender: TObject);var ASql, AKey: string; //模糊查询和字段查询const vsql1: string = 'select * from delphi where Title like '; vsql2: string = 'select * from delphi';begin AKey := Trim(scGPEdit1.Tex