| | | | | |

2024年11月20日

摘要：音频、视频阅读全文

posted @ 2024-11-20 20:04 涂磊阅读(1) 评论(0) 推荐(0) 编辑

摘要： uses mmSystem; procedure TForm2.Button1Click(Sender: TObject); begin mciSendString('play D:\music\18赵海洋-夜空的寂静(钢琴曲).mp3',nil,0,0); end; MP3路径不能有空格，如果有，阅读全文

posted @ 2024-11-20 15:56 涂磊阅读(0) 评论(0) 推荐(0) 编辑

2024年11月14日

BMP转JPG，PNG

摘要： BMP转JPG uses Vcl.Imaging.jpeg//涂磊添加 20241113 procedure TSimpleGraph.SaveAsJPEG(const Filename: String); //涂磊 BMP 转 JPG 添加20241113 var Bitmap: TBitmap; 阅读全文

posted @ 2024-11-14 08:57 涂磊阅读(3) 评论(0) 推荐(0) 编辑

SavePictureDialog对话框默认后缀名

摘要： procedure TMainForm.As1Click(Sender: TObject); //涂磊添加20241113 JPEG格式导出 begin OpenDialogFile.InitialDir := GetCurrentDir; //11]OpenDialogFile增加 *.dpr 阅读全文

posted @ 2024-11-14 08:52 涂磊阅读(3) 评论(0) 推荐(0) 编辑

2024年11月13日

Action动态实现菜单是否有效

摘要： procedure TMainForm.As1Click(Sender: TObject); //涂磊添加20241113 JPEG格式导出 begin SavePictureDialog.FileName := ChangeFileExt(SaveDialog.FileName, '.jpg') 阅读全文

posted @ 2024-11-13 17:05 涂磊阅读(1) 评论(0) 推荐(0) 编辑