组件共799篇

RzCheckList自绘实现改变选中项的底色(蓝色)改为其他颜色-Delphi编程技巧大全

RzCheckList自绘实现改变选中项的底色(蓝色)改为其他颜色

procedure TForm1.RzCheckList1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin if Odd(index) then //当items的index为奇数时的颜色 begin RzCh...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
04812

delphi StringGrid1获取指定列所有数据

procedure TForm1.Button5Click(Sender: TObject);vari:integer;beginfor i:=0 to StringGrid1.rowCount-1 dobegin   Memo1.lines.add(StringGrid1.Cells[9,i]);  //数字9为自定...
Top_Admin的头像-Delphi编程技巧大全Top_Admin30天前
04810

delphi Delphi,WebBrowser模拟点击按钮

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialog...
Top_Admin的头像-Delphi编程技巧大全Top_Admin30天前
0519

delphi 使用 TEdgeBrowser 组件

仅供有兴趣的朋友们参考,步骤有点小复杂。1、下载 nuget。2、在命令行执行:nuget install Microsoft.Web.WebView23、从微软官方下载 Webview 2 运行时。4、在 nuget 目录下,搜索对应架构的 w...
Top_Admin的头像-Delphi编程技巧大全Top_Admin30天前
0647

delphi使用Edge Browser浏览器组件

RAD Studio 10.4在VCL Web浏览器上具有一项新功能。它是Edge Browser,它具有新功能,并且比以前的Web浏览器更具兼容性。这是在C ++ Builder和Delphi中使用Edge浏览器的快速帮助。在Windows上安...
Top_Admin的头像-Delphi编程技巧大全Top_Admin30天前
03013

Delphi 10.4.1 EdgeBrowser 模拟操作网页方法

Delphi 10.4.1 EdgeBrowser 模拟操作网页方法以往一直用TWebBrowser 或者 C++ Builder 中的TCcpWebBrowser来写网页模拟操作这两个控件可以使用WebBrowser.OleObject.document、WebBrowser.Docum...
Top_Admin的头像-Delphi编程技巧大全Top_Admin30天前
0565

delphi 鼠标拖动控件自由移动位置

方法:unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin30天前
0265

Delphi 删除memo某一行

删除memo某一行var   I :integer ;   str :String ;beginfor I := 0 to MemoUrlList.lines.count -1 d...
Top_Admin的头像-Delphi编程技巧大全Top_Admin30天前
02910

Delphi使用TNetHTTPClient:重定向后如何给出最终的URL?

uses System.Net.URLClient, System.Net.HttpClient, System.Net.HttpClientComponent;似乎没有直接(公共)访问与响应关联的请求实例。hacky解决方案依赖于:IHTTPResponse返回...
Top_Admin的头像-Delphi编程技巧大全Top_Admin30天前
0309

delphi idhttp post 普通提交乱码处理

var  IdHTTP1:TIdHTTP;  postStream : TStringStream;  Wstr:WideString;res:WideString;begin  IdHTTP1 := TidHTTp.create(nil);     try  &nbs...
Top_Admin的头像-Delphi编程技巧大全Top_Admin30天前
06012

Delphi 设置RichEdit的行间距

procedure TForm1.Button3Click(Sender: TObject);var  pf: PARAFORMAT2;begin  FillChar(pf, sizeof(paraformat2), #0);  pf.cbSize := SizeOf(paraformat2);  pf.dwMask ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin30天前
0508

Delphi 为RichEdit设置行号

procedure TForm1.Button4Click(Sender: TObject);const  PFNS_PAREN = $000;  //e.g. 1)  PFNS_PARENS = $100;  //e.g. (1)  PFNS_PERIOD = $200;  //e.g. 1.&n...
Top_Admin的头像-Delphi编程技巧大全Top_Admin30天前
0409

Delphi RichEdit根据鼠标位置定位光标的方法

当RichEdit为可用状态时,是不用代码控制此操作的,TRichEdit本身就可以定位光标。但是当RichEdit开始不可用时,则此方法就可能用到了。本例中RichEdit1开始时是不可用的,当在ApplicationEvent...
Top_Admin的头像-Delphi编程技巧大全Top_Admin30天前
04713

Delphi 使Richedit中的链接可以点击

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ComCtrls, RichEdit, ShellAPI;type  TForm1 = ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin30天前
0427

Delphi ScrollBox1滚动框鼠标滚轮

//方法1:procedure TForm1.ScrollBoxMouseWheel(Sender: TObject;  Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;  var Handled: Boolean);var  LTopLeft, LTop...
Top_Admin的头像-Delphi编程技巧大全Top_Admin30天前
02611

Delphi XE更改TTrayIcon系统任务栏图标(无模糊)

procedure TForm1.Button4Click(Sender: TObject);begin  TrayIcon1.IconIndex := 0;end; procedure TForm1.Button5Click(Sender: TObject);begi...
Top_Admin的头像-Delphi编程技巧大全Top_Admin30天前
04215

delphi中如何用一个按钮控制开与关两个状态

if Button5.caption='开始' thenbeginButton5.caption:='停止';Timer1.Enabled:=true;Timer1.Interval:=5000;endelsebeginButton5.caption:='开始';Timer1.Enabled:=false;Timer1.Interval:=0;e...
Top_Admin的头像-Delphi编程技巧大全Top_Admin30天前
0416

Delphi环境下基于SPCOMM控件开发串口通讯报文字节丢失的问题解决

最近做的工具需要实现串口转UDP中间件,中间件与下位机通过RS232通讯,与接收服务器通过UDP通讯。在传输过程中出现问题如下:1. 通过PC机安装的虚拟串口进行调试,接收程序完全正常。2.与下位机...
Top_Admin的头像-Delphi编程技巧大全Top_Admin30天前
03113

Delphi WebBrowser载入自定义HTML内容并显示

use    Winapi.ActiveX;   //调用IPersistStreamInit类 procedure TForm1.Button2Click(Sender: TObject);  var    PostList: TString...
Top_Admin的头像-Delphi编程技巧大全Top_Admin30天前
02814
Delphi TrayIcon1如何把窗体关闭到系统托盘-Delphi编程技巧大全

Delphi TrayIcon1如何把窗体关闭到系统托盘

for I := 0 to 200 dobegin  Edit_Y.Items.Add((1949+i).ToString);end;Edit_Y.ItemIndex:=Edit_Y.Items.IndexOf(formatdatetime('yyyy',now()));
Top_Admin的头像-Delphi编程技巧大全Top_Admin30天前
04715
Delphi 系统托盘组件 TTrayIcon 简介-Delphi编程技巧大全

Delphi 系统托盘组件 TTrayIcon 简介

TTrayIcon 的主要属性:TrayIcon.Icon指定托盘图标, 有几种用法:1、设计时选择;2、把一个 TIcon 对象给它;3、使用当前程序图标: TrayIcon1.Icon := Application.Icon;4、TrayIcon1.SetDefaultIco...
Top_Admin的头像-Delphi编程技巧大全Top_Admin30天前
0548
Delphi 2009 之 TButtonedEdit-Delphi编程技巧大全

Delphi 2009 之 TButtonedEdit

 代码文件:unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ExtCtrls, ImgList;&nbs...
Top_Admin的头像-Delphi编程技巧大全Top_Admin30天前
0535
Delphi 2009 之 TCategoryPanelGroup[1]: ChevronAlignment 等-Delphi编程技巧大全

Delphi 2009 之 TCategoryPanelGroup[1]: ChevronAlignment 等

制作过程:先添加一个 TCategoryPanelGroup, 再从其右键菜单 -> New Panel, 反复添加三个 TCategoryPanel.本例测试了:TCategoryPanelGroup 的 ChevronAlignment 属性、CollapseAll 和 ExpandA...
Top_Admin的头像-Delphi编程技巧大全Top_Admin30天前
03510
Delphi 2009 之 TCategoryPanelGroup[2]: HeaderAlignment、GradientDirection-Delphi编程技巧大全

Delphi 2009 之 TCategoryPanelGroup[2]: HeaderAlignment、GradientDirection

本例效果图:代码文件:unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls, StdCtrls;type  TForm1 = ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin30天前
05410
Delphi 2009 之 TCategoryPanelGroup[3]: Color-Delphi编程技巧大全

Delphi 2009 之 TCategoryPanelGroup[3]: Color

代码文件:unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls, StdCtrls, ColorGrd;type  TForm1 = c...
Top_Admin的头像-Delphi编程技巧大全Top_Admin30天前
0297
Delphi 2009 之 TCategoryPanelGroup[4]: Height-Delphi编程技巧大全

Delphi 2009 之 TCategoryPanelGroup[4]: Height

本例效果图:代码文件:unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls, StdCtrls, ComCtrls;type ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin30天前
04813
Delphi 2009 之 TCategoryPanelGroup[5]: HeaderStyle-Delphi编程技巧大全

Delphi 2009 之 TCategoryPanelGroup[5]: HeaderStyle

本例效果图:代码文件:unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls, StdCtrls, ComCtrls;type ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin30天前
0519
Delphi 2009 之 TBalloonHint-Delphi编程技巧大全

Delphi 2009 之 TBalloonHint

代码文件:unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ImgList;type  TForm1 = class(TForm)...
Top_Admin的头像-Delphi编程技巧大全Top_Admin30天前
0509

Delphi 2009 之 TEdit 加强的功能

1、终于添加了 Alignment 属性(taLeftJustify, taRightJustify, taCenter), 可以方便控制文本对齐了;2、增加了 NumbersOnly 属性(True, False), 控制是否只接受数字;3、增加了 TextHint 属性, ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin30天前
0477

Delphi 将SVG加载到TImage控件

var  Image1: TImage;[...]// VCLImage1.Picture.LoadFromFile('c:mysvg.svg'); // FMXImage1.Bitmap.LoadFromFile('c:mysvg.svg');var Bitmap: TBitmap; Picture: TPictur...
Top_Admin的头像-Delphi编程技巧大全Top_Admin30天前
04214