Delphi2010 - 随笔分类 - 涂磊

为什么要用状态栏+Time1来提示memo1的错误提示信息

摘要：因为Memo1和Showmessage都是有焦点的，会同时运行，结果是，点了Showmessage的确认信息，Memo1的选择文本会取消，所以不能用Showmessage var aCode:integer; //记录 memo1错误代号 procedure TForm3.UpdateStatus 阅读全文

posted @ 2025-02-25 19:57 涂磊阅读(1) 评论(0) 推荐(0) 编辑

delphi tcolor 颜色转成网页颜色格式

摘要：procedure TForm3.ToolButton9Click(Sender: TObject); // 字体颜色 function ColorToHtml(DColor:TColor):string; var //delphi tcolor 颜色转成网页颜色格式 tmpRGB : TCo 阅读全文

posted @ 2025-02-24 11:45 涂磊阅读(2) 评论(0) 推荐(0) 编辑

Delphi10.3下ProgressBar1的使用

摘要：Delphi10.3状态栏上显示进度条/图片 {三种方法等价} {1}ProgressBar1.Position:=ProgressBar1.Position+10; {2}ProgressBar1.StepBy(10); {3} ProgressBar1.Step:=10 ; ProgressBa 阅读全文

posted @ 2024-12-04 15:06 涂磊阅读(49) 评论(0) 推荐(0) 编辑

string转TStringList的ExtractStrings在Delphi10.3

摘要：var s: string; ACount,i: Integer; AStrings: TStringList; begin s := 'about: #delphi; #pascal, programming'; AStrings := TStringList.Create; ACount := 阅读全文

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

Delphi修改Panel圆角

摘要：procedure TForm10.FormCreate(Sender: TObject); begin Panel1.Color:=clHighlight; SetWindowRgn(Panel1.handle,CreateRoundRectRgn(0,0,panel1.width,Panel1. 阅读全文

posted @ 2024-11-27 18:26 涂磊阅读(52) 评论(0) 推荐(0) 编辑

TeeChart学习汇总

摘要：https://www.cnblogs.com/delphi-xe5/articles/5277070.html 如果TeeChart的bpl文件被删除，可以通过 repair Delphi10.3来自动修复因为第三方控件（FastReport,UniGUI)依赖于原生TeeChart的bpl 可阅读全文

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

delphi的MediaPlayer1使用

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

posted @ 2024-11-20 20:04 涂磊阅读(15) 评论(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 涂磊阅读(5) 评论(0) 推荐(0) 编辑

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 涂磊阅读(4) 评论(0) 推荐(0) 编辑

SavePictureDialog对话框默认后缀名

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

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

Action动态实现菜单是否有效

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

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

ModelMaker 7由pas逆向类图

摘要：下载通过百度网盘分享的文件：ModelMaker_v7.20.rar链接：https://pan.baidu.com/s/1-jc39uRv5X96HqrkeDs5ZA 提取码：i9pb 逆向工程逆向工程在MM中十分简单。但是要提醒，先备份一下你的旧代码。 1.【单元视图】（Units）选“I 阅读全文

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

Delphi10.3的Toolbar1也可以竖起来，就像PhotoShop里一样

摘要：阅读全文

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

delpih画上半圆

摘要：procedure TForm1.FormPaint(Sender: TObject); const x1 = 10; //left y1 = 10; //top x2 = 200; //right y2 = 200; //bottom x3 = x2; y3 = y1+(y2-y1) div 2; 阅读全文

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

Delphi10.3中SpinEdit1和UpDown1上下按钮

摘要：此控件仅支持数字整数.默认情况下不支持小数点,但支持负数输入 SpinEdit1主要属性 procedure TForm1.SpinEdit1Change(Sender: TObject); begin form1.Caption:= inttostr( SpinEdit1.Value ); end 阅读全文

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

第三方控件学习汇总

摘要：Gif123.rar TTextEditor：一款强大的Delphi文本编辑器控件语法高亮-SynEdit在Delphi10.3上的安装和使用运行DOSCommand命令,然后获得返回文本 EhLib11DBGridEH学习汇总 TMS FlexCel VCL & FMX v7.8学习汇总 De 阅读全文

posted @ 2024-10-31 14:43 涂磊阅读(63) 评论(0) 推荐(0) 编辑

Delphi10.3下SimpleGraph v2.92流程图的安装，使用

摘要：02]增加四种自定义图形03]导出为jpg格式04]导出为PNG格式，并轻度汉化通过百度网盘分享的文件：SimpleGragh-EditorV5.rar链接：https://pan.baidu.com/s/1yBxJVwZx-pCXWAVdj7TanA 提取码：13f3 01]下载和安装02]双阅读全文

posted @ 2024-10-31 10:24 涂磊阅读(32) 评论(0) 推荐(0) 编辑

delphi pas控件安装

摘要：第一步：点击“ File”－“ New ”菜单中的“ Package – Delphi for Win32”，新建一个控件包。第二步：选中右边“ Project Manager ”中“ Contains ”文件夹，点击鼠标右键，在弹出的菜单中选择“ Add”。第三步：在 Add 对话框中，点击“ 阅读全文

posted @ 2024-10-31 09:43 涂磊阅读(48) 评论(0) 推荐(0) 编辑

Delphi10.3中的TreeView1的使用说明

摘要：mySQL数据库中，所有的DataBase及其对应的Tables;最终效果：先在设计窗口，新建根结点再添加层级为Level1级的数据库名DataBases; var RootNode : TTreeNode; //先建立一个TREEVIEW使用的结点对象 begin FDQuery1.Activ 阅读全文

posted @ 2024-10-29 14:34 涂磊阅读(64) 评论(0) 推荐(0) 编辑

Delphi10.3的PageControl1使用方法大全

摘要：00]默认TabSheet表头的宽度和高度01]用代码动态添加TabSheet02]动态双击任意一个标签，即关闭被双击的标签TabSheet03]自画TabSheet04]重命名TabSheet05]添加关闭按钮 00]默认TabSheet表头的宽度和高度动态改变 TabSheet表头的宽度和高阅读全文

posted @ 2024-10-25 10:53 涂磊阅读(122) 评论(0) 推荐(0) 编辑

随笔分类 - Delphi2010

搜索

随笔分类 (685)