2024年5月26日

可移动的组件(易语言的投递信息)

摘要: 在程序的运行过程中,有些组件是可以被拖动的,只需要对他投递个信息就行,这样的组件有:标签组件、图片框组件、外形框、画板组件、选择夹组件 比如: .版本 2 .子程序 _标签1_鼠标左键被按下, 逻辑型.参数 横向位置, 整数型.参数 纵向位置, 整数型.参数 功能键状态, 整数型 标签1.投递信息 阅读全文
posted @ 2024-05-26 11:08 yanglu_51 阅读(106) 评论(0) 推荐(0) 编辑
2024年5月25日

易语言如何用循环方式给多个标签赋值

摘要: 易语言如何用循环方式给多个标签赋值? 首先添加好你要的标签,然后在属性里设置标记属性值:第一个标记填1,第二个标记填2,……,吧所有的标记都设置好后 .版本 2 .子程序 按钮2被单击 .局部变量 n, 整数型 .局部变量 量_标签, 标签 n = 1 . 循环判断首 () 量标签 = 取标记组件 阅读全文
posted @ 2024-05-25 21:52 yanglu_51 阅读(136) 评论(0) 推荐(0) 编辑
2023年12月30日

在pycharm中调用manim

摘要: 1.pycharm新建两个文件,一个manimCE.py并输入下列代码: from manim import * class OpeningManim(Scene): def construct(self): config.tex_template=TexTemplateLibrary.ctex # 阅读全文
posted @ 2023-12-30 15:50 yanglu_51 阅读(174) 评论(0) 推荐(0) 编辑
2023年11月25日

Delphi模拟鼠标点击

摘要: 1 var 2 FindW:HWND; 3 begin 4 findw:=FindWindow(nil,'欢迎使用百度网盘'); 5 sendmessage(FindW,messages.WM_LBUTTONDOWN ,0,$00250107); 6 sendmessage(FindW,messag 阅读全文
posted @ 2023-11-25 22:11 yanglu_51 阅读(218) 评论(0) 推荐(0) 编辑
2023年11月23日

Delphi获取当前系统时间(使用API函数GetSystemTime)

摘要: 在开发应用程序时往往需要获取当前系统时间。尽管Y2K似乎已经平安过去,但在我们新开发的应用程序中还是要谨慎处理“时间”问题。 在《融会贯通--Delphi4.0实战技巧》(以下简称“该书”)第89页专门介绍了两种获取当前系统时间的方法,但这两种方法都存在不足或错误,以下就此进行讨论。 该书第一种方法 阅读全文
posted @ 2023-11-23 21:22 yanglu_51 阅读(360) 评论(0) 推荐(0) 编辑

delphi 时间格式化,动态显示时间,显示最新时间

摘要: 动态显示时间(需要Timer控制的支持,以下代码放到Timer事件中) Label1.Caption := FormatDateTime('yyyy-mm-dd hh:mm:ss' , Now); 显示当前时间(放在窗体的OnShow事件中) edit1.text:=FormatDateTime(' 阅读全文
posted @ 2023-11-23 19:04 yanglu_51 阅读(162) 评论(0) 推荐(0) 编辑
2023年11月18日

小甲鱼Delphi教程37课《读写修改记录型文件》源码

摘要: 说明:本程序用delphi10.4重写编写 一、最后效果 二、源码 1 unit Unit1; 2 3 interface 4 5 uses 6 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Cla 阅读全文
posted @ 2023-11-18 21:16 yanglu_51 阅读(47) 评论(0) 推荐(0) 编辑

35文本文件的读写

摘要: 一、最后效果 二、代码: 1 procedure TForm1.Button1Click(Sender: TObject); 2 begin 3 if OpenDialog1.Execute then 4 Edit1.Text:=OpenDialog1.FileName; 5 end; 6 7 8 阅读全文
posted @ 2023-11-18 10:22 yanglu_51 阅读(17) 评论(0) 推荐(0) 编辑
2023年11月14日

34课笔记

摘要: 阅读全文
posted @ 2023-11-14 21:33 yanglu_51 阅读(11) 评论(0) 推荐(0) 编辑
2023年10月29日

Delphi做记事本

摘要: 一、打开,保存等组件在什么地方 1.组件在Dialogs内 2.点击组件栏右下箭头后进行搜索 3.需要添加如下组件 4.打开文件代码: 1 {$R *.dfm} 2 var 3 Lujing:String; 4 procedure TForm1.OpenExecute(Sender: TObject 阅读全文
posted @ 2023-10-29 10:08 yanglu_51 阅读(41) 评论(0) 推荐(0) 编辑