procedureTMainForm.As1Click(Sender:TObject);//涂磊添加20241113JPEG格式导出beginSavePictureDialog.FileName:=ChangeFileExt(SaveDialog.FileName,'.jpg');ifSavePictureDialog.ExecutethenSimpleGraph.SaveAsJPEG(SavePictureDialog.Fi

lazarus的menu控件在银河麒麟显示(GTK2)灰黑色背景，荆通大神通过修改gtk2源码可以修改背景但效果还是不理想。近日在GitHub找到一个LazarusMenu，经试用发现问题很多，其中还使用了bgracontrols控件。我修改的版本删除bgracontrols控件，修正了大量的Bug，已可以使用。修改TAdvancedMenu

设置视图: 运行效果:    unitHideWindown;interfaceusesWindows,Messages,SysUtils,Classes,Forms,StdCtrls,ActiveX,ComObj,ShellAPI,Tlhelp32,Vcl.Controls,Vcl.ComCtrls,psapi,Vcl.ExtCtrls;typeTForm1=class(TForm)GetWList

根据银灿IS903的CD-ROM盘符打开光盘文件索引数据库Index-Your-Files-2024年8月15日   =====段落分隔符=====Config-7z-SFX-Builder-v2.5.0.5;!@Install@!UTF-8!InstallPath="C:\\APP"OverwriteMode="1+8"RunProgram="nowait:C:\\APP\\IYF\\Delphi7\\Proj

delphi7代码：unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ExtCtrls,OverbyteIcsWndControl,OverbyteIcsWSocket,OverbyteIcsWSocketS;typeTForm1=class(TForm)WSocketServer1:TWSock

近日使用时发现lazreport自带调用fr3的功能，按下面的方法调用就可以：1、uses添加fr3tolrf2、form添加frreport3、使用LoadFastReport3调用fr3文件LoadFastReport3(frReport控件名称,fr3格式的文件,返回相应信息); unitUnit1;{$modeobjfpc}{$H+}interfaceusesClas

在spy+中未找到这样的功能  有个隐藏窗口的进程，相让窗口显示出来，虽然可以找到进程ID，然后再逐步找到主窗口句柄，但又没句柄发各种消息的软件。  计得以前有个窗口精灵之类的，网上找了很多，要么没有此功能，甚至一个小功能都了注册，收费。  得，自己直接整一个，根据进程ID找到进

image32中有2种算法转换图像为svg,一种是按透明度计算找边缘，另一种是分析像素梯度找边缘，demo代码整理后如下：unituFrmImageToSVG;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,Vcl.Controls,Vcl.

Image32自带的Demo,添加一些注解。 unituFrmAnimation;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Classes,System.Variants,System.Math,Vcl.Graphics,Vcl.Controls,Vcl.Forms,Vcl.Dialogs,Vcl.StdCtrls,Vcl.ExtCtrls,//

Image32自带的Demo,添加一些注解。unituFrmAnimation2;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,Vcl.Controls,Vcl.Forms,Vcl.Dialogs,Vcl.StdCtrls,Vcl.ExtCtrls,System.Math,Img3

1.把svg静态字符串写死程序里unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,Vcl.Controls,Vcl.Forms,Vcl.Dialogs,System.Skia,Vcl.Skia,Vcl.StdCtrls;typeTForm1=class(T

有些时候，我们的窗体没有顶部栏，比如：窗体的borderstyle=bsNone;我们想在顶部放置一个panel，来拖动窗体，方法如下，直接上代码了：unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,Vcl.Controls

//擦除原来线procedureTForm1.DBNavigator1BeforeAction(Sender:TObject;Button:TNavigateBtn);beginifbutton=nbDeletethenDBtooLine(clBtnFace,clBtnFace);//擦除原来线end;procedureTForm1.DBNavigator1Click(Sender:TObject;Button:TNaviga

01]ListBox1的DragMode设置为dmAutomatic02】Memo1的OnGragOver事件和OnDragDrop事件 procedureTForm8.Memo1DragOver(Sender,Source:TObject;X,Y:Integer;State:TDragState;varAccept:Boolean);beginifTListBox(Source)=ListBox1thenAccept:=true;end;

procedureTfrmGettingStarted.btnInsertClick(Sender:TObject);variID:Integer;beginifnotFDconnection1.ConnectedthenExit;//Insertarecord增FDconnection1.ExecSQL('insertintoCategories(CategoryName,Description,Picture)'

菜单：Project-->Options-->SearchPath引入地址如：E:\Software\DelphiLib\loggerpro_1_3_1interfaceusesLoggerPro,Winapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,Vcl.Controls,Vcl.Forms,

Delphi主窗体打开窗体及调用其他单元中的方法1、建立窗体父窗体实现父窗体点击“打开子窗体”按钮打开子窗体。点击“调用单元函数”按钮将单元方法返回信息填充到MEMO控件中。子窗体2、父窗体代码unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,Sy

涉及的重要类REST.Json，REST.JsonReflect，REST.Json.Interceptors,REST.Json.Types单元中。一、TJson类最简单的一个类，提供了JSON->OBJECT和OBJECT->JSON几个方法，方法有TJsonOptions参数，如：   classfunctionObjectToJsonObject(AObject:TObject;AOptions:TJsonOpti

TrayIcon1.Visible一定要设为True01]绑定右键菜单02]汽泡显示信息03]托盘闪烁04]更改ico图标01]绑定右键菜单拖一个PopupMenu1,设置好菜单,绑定即可显示02]汽泡显示信息procedureTForm1.Button1Click(Sender:TObject);beginTrayIcon1.BalloonFlags:=bfWarning;//bfNone,bfI

 TObject:    VCL中所有类的根类，即是说：VCL中所有的类/组件/控件都是从TObject中继承而来。TObject类中定义了基本的构造方法和析构方法。  TPersistent:    继承于TObject，按字典中的意思是“持久类”(姑且这样叫它吧，因为我一直就是这样叫这个类的-_-|)。该类在VCL中

说明：本程序用delphi10.4重写编写一、最后效果二、源码1unitUnit1;23interface45uses6Winapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,7Vcl.Controls,Vcl.Forms,Vcl.Dialogs,Vcl.StdCtrls,V

运行时动态设置控件（类）属性值代码运行时根据控件名称设置Alignment属性值usesSystem.Rtti;procedureTForm1.Button1Click(Sender:TObject);varvComponent:TComponent;vRttiCtx:TRttiContext;vRType:TRttiType;vProp:TRttiProperty;v:TValue;begin

一.工具界面如下(没做UI) 二.设计视图如下: 三.控件说明:1.使用到了第三方StyleControl控件中的SCGPLabel,SCGPEdit,SCGPCheckBox,SCGPCombobox,SCGPButton,这几个控件如果需要,可替换成秕自带控件.难度-12.TrayIcon这个是让程序缩小到托盘上面去的.3.Pop

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ExtCtrls;typeTForm1=class(TForm) Button1:TButton; Button2:TButton; Button3:TButton; Button4:TButton; procedureButton1Click(Sender:

转自万一 https://www.cnblogs.com/del/archive/2009/10/16/1584768.html 和TDirectory.GetFiles用法一样,TDirectory.GetDirectories是用来获取子目录的.另外还有TDirectory.GetFileSystemEntries可同时获取文件与子目录,用法都一样.unitUnit1;interfaceuse