| | | | | |

2024年11月21日

Dev中dxBarManager1中工具栏添加其他控件(24)

摘要：放一个dxBarManager1 在界面上，双击它然后界面上方，就会出现空白工具栏，在工具栏前面空白黑框上上，点右键，可以添加各种控件阅读全文

posted @ 2024-11-21 11:02 涂磊阅读(75) 评论(0) 推荐(0)

2024年11月20日

delphi的MediaPlayer1使用

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

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

无界面，mciSendString播放MP3

摘要： 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 涂磊阅读(43) 评论(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 涂磊阅读(29) 评论(0) 推荐(0)

SavePictureDialog对话框默认后缀名

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

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