
笔记
cz_012273
这个作者很懒,什么都没留下…
展开
-
Delphi FMX的Webbrowser控件中运行JavaScript代码(带歌词的音乐播放器)
最近一段,想做一个能显示歌词的音乐播放器,本打算用Delphi实现,但恰好本人之前在Delphi FMX下编写了一个html编辑调试的app模块,就想试试能不能用Javascript代码来达到这样一个目的。按老规矩,先上网搜了一圈,看有没有现成的代码可以用来修改的。结果发现,音乐播放器的代码倒是不少(javascript的资源可比delphi丰富多了),但是能读取本地歌词文件的却不多,仅有的几个复制过来在手机的Webbrowser中试了一下,也都无法运行。经过查阅资料、多方求索了解到,原来读取本地文件的操原创 2021-12-13 14:44:46 · 1077 阅读 · 0 评论 -
解决Memo控件选择文本时屏幕滚动
一个小问题却困扰了我很长时间:Delphi FMX下用memo控件编写的文本编辑器在选择文本时,屏幕上下滚动,导致选择操作很难进行。而手机输入法自带的编辑选择功能,在自己定制的编辑器中却不起作用(输入法接口函数找不到)。尤其在修改一些源程序代码时,复制、粘贴起来简直令人恼火。经过不断摸索,现在终于算是解决了!方法如下:在memo的mousemove事件中,当选择文本的长度大于0小于50时,禁止滚动;当选择文本长度大于50,允许滚动,这样屏幕上滑后可继续拖动选择文本。在mouseleave事件中,当选择原创 2021-12-08 11:22:52 · 925 阅读 · 0 评论 -
解决Delphi FMX Webbrowser控件无法释放
在我的delphi工具箱项目中,之前已经实现了文本文件的编辑功能,经过简单修改后,可以打开HTML文件。这时突然有了一个新的想法:能不能用delphi的文本编辑器实现HTML文件编辑调试功能呢?说干就干,一开始的想法是想用delphi调用外部浏览器打开HTML文件,可是经过试验,华为安卓的默认浏览器不能打开本地HTML文件(输入file://文件路径+文件名后直接进入搜索功能),调用其他浏览器又感觉太过臃肿。这是想到了用Delphi自带的webbrowser控件,由于是临时调用,用完后关闭,所以选择了动原创 2021-11-19 12:41:41 · 657 阅读 · 0 评论 -
记不住git命令?好办,用批处理
作为一名编程爱好者,经常要用到代码管理、版本控制的工具——git,而git命令涉及到的语法参数又比较多,如果不小心用错了,还有可能导致辛辛苦苦编好的代码一瞬间付之东流。为了避免这种情况的发生,同时减轻记忆负担,我参考网上的文章,结合自身需要,把常用的git命令编成一个批处理文件放在桌面上,需要用的时候直接双击执行就可以了。当然,在这之前,需要在系统中安装好git,并配置好环境变量。@echo offrem 选择要操作的git项目并进入对应目录echo.echo =================原创 2021-10-31 16:03:43 · 344 阅读 · 0 评论 -
Delphi FMX下移动界面布局问题
Delphi FMX下移动界面布局问题 为了让delphi编写的APP适应不同尺寸的手机屏幕,需要在界面布局上采取一些办法。 Delphi XE 10.4 默认的安卓view界面只有4寸、5寸、7寸等固定几种,无法自行设置,这就导致设计好的手机APP界面,在真机调试时超出或不满屏幕。针对这一问题,网上给出最简单的解决方法,是采用一个scaledlayout组件,把所有要显示的东西放进去,里面的控件就会随着屏幕大小自动缩放。但这种方法有一个缺陷,那就是不仅控件会缩放,里面的文字也会随着缩放,最终显示效原创 2021-10-30 07:31:37 · 976 阅读 · 0 评论 -
Delphi FMX 长按按钮删除文件
Delphi FMX 长按按钮删除文件 在按钮mousedown事件中取当前毫秒数,赋给全局变量,在mouseup事件中再取一次,当二者之差超过某一阈值(设定为2000,即2秒)时,删除文件,如不超过,则显示长按删除信息。代码如下:...原创 2021-10-24 19:18:14 · 345 阅读 · 0 评论 -
DelphiFMX安卓下自动选择光标所在行文本
在memo控件中,想实现自动选择当前行文本功能,本以为应该比较简单,网上一查,确实有这样一段程序,代码如下:procedure SelectMemoLine(Memo : TCustomMemo) ;varLine : integer;beginwith Memo dobeginLine := Perform(EM_LINEFROMCHAR, SelStart, 0) ;SelStart := Perform(EM_LINEINDEX, Line, 0) ;SelLength := L原创 2021-10-23 09:17:11 · 462 阅读 · 0 评论 -
Delphi自带git版本控制工具的使用
刚开始,为了保存自己的程序代码,每次编写完成后,将代码保存到网盘。但随着程序的逐渐加大,百度网盘的速度越来越不能满足需要(为了图省事,采用的是整个文件夹上传的方式,上传速度还可以,下载限速却让人不得不吐槽)。后来从网上了解到,有一类专门提供代码存储空间的网站,如github、gitee, 采用的是分布式版本控制系统,方便高效,特别适合编程者使用。说干就干,按照网上找来的教程,先是下载安装了git,几番周折,终于完成了配置ssh公钥等一系列步骤。在搜索学习过程中,得知Delphi本身带有git版本控制工具,原创 2021-10-17 17:19:33 · 985 阅读 · 0 评论 -
最简单的方法就是最好的方法
最简单的方法就是最好的方法----DelphiXE编程体会之二最近,用Delphi做了一个自动识别文本编码的模块,其中一段代码是把word类型的数据高低位字节互换,然后与数组中的编码标志进行对照。本着拿来主义的原则,将网上的代码全盘复制,却发现其中有一段嵌入式汇编,在FMX安卓模式下无法编译通过,网上多番搜索无果后,只好在群里向网友求助。经过网友指点,将代码改为位操作语句,编译是通过了,但结果却不正确。临时抱佛脚,学习了一些位操作和数据类型相关知识后,仍然是一头雾水。几番试验仍无法达到预期的结果。这时忽原创 2021-10-06 20:15:33 · 206 阅读 · 0 评论