频道分类
您的位置:网站首页 > 组件

Delphi edit只允许输入数字

ifnot(keyin['0'..'9',#8])thenkey:=#0;

类别:组件 标签: 作者:admin 日期:2020-03-28 23.05.25

Delphi CheckListBox 用法

fori:=CheckListBox1.Items.Count-1downto0do//从后面往前面删beginifCheckListBox1.Checked[i]then//是否选…

类别:组件 标签: 作者:admin 日期:2020-03-28 22.59.19

Delphi MEMO 循环往上往下滚动

//循环往上滚动ifMemo1.Perform(EM_SCROLL,SB_LINEDOWN,0)=0thenbeginMemo1.Perform(WM_VSCROLL,SB_TOP,0);…

类别:组件 标签: 作者:admin 日期:2020-03-28 22.56.22

delphi 遍历所有Edit控件

unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes…

类别:组件 标签: 作者:admin 日期:2020-03-28 13.38.40

delphi cef4 忽略不安全网站

在工程文件里写入GlobalCEFApp:=TCefApplication.Create;GlobalCEFApp.IgnoreCertificateErrors:=True;

类别:组件 标签:cef4 作者:admin 日期:2020-03-27 12.51.57

delphi tlistbox添加横向滚动条

//delphitlistbox添加横向滚动条procedureTForm1.SetWidth(pListBox:TListBox);vari,w:Integer;beginw:=0;f…

类别:组件 标签: 作者:admin 日期:2020-03-27 12.45.33

delphi StringGrid行列的增加和删除

typeTExCell=class(TStringGrid)publicprocedureDeleteRow(ARow:Longint);procedureDeleteColumn(ACol:Long…

类别:组件 标签: 作者:admin 日期:2020-03-27 12.43.09

Delphi StringGrid使用全书

StringGrid行列的增加和删除typeTExCell=class(TStringGrid)publicprocedureDeleteRow(ARow:Longint);proce…

类别:组件 标签: 作者:admin 日期:2020-03-27 12.42.21

Delphi TButton.OnClick 匿名函数用法

typeTNotifyEventRef=referencetoprocedure(Sender:TObject);functionAnonymousEvent(constProc:TNotifyEve…

类别:组件 标签: 作者:admin 日期:2020-03-23 21.23.46

delphi TMemo控件滚动条scrollbar末尾插入字符串一点都会闪烁的轻松实现

Memo1.DoubleBuffered:=True;//使用双缓冲,减少TMemo字符串数据闪烁Memo1.Lines.BeginUpdate;//加入该行保…

类别:组件 标签: 作者:admin 日期:2020-03-23 09.12.24

delphi 让ComboBox只允许输入数字和回车键以及delphi key值表

procedureTForm1.ComboBox2KeyPress(Sender:TObject;varKey:Char);beginifnot(Keyin['0'..'9',chr(VK_BACK)…

类别:组件 标签: 作者:admin 日期:2020-03-23 09.01.48

delphi读取RadioGroup选中按钮的string文本

procedureTForm1.RadioGroup1Click(Sender:TObject);beginShowMessage('['+inttostr(RadioGroup1.ItemIndex…

类别:组件 标签: 作者:admin 日期:2020-03-23 08.59.25

delphi 动态生成九宫格按钮

unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes…

类别:组件 标签: 作者:admin 日期:2020-03-22 22.40.52

Delphi动态创建30个按钮,每行6个共5行,顺序排列

procedureTForm1.Button1Click(Sender:TObject);constiHtoH=20;//行间距iWtoW=10;//列间距iPerLine=6;//每行…

类别:组件 标签: 作者:admin 日期:2020-03-22 22.12.41

DELPHI listview导出到excel

usesExcelXP,strutils,QDialogs,Variants;functionget_listviewTOexcel(listview:TListView;strTitle:strin…

类别:组件 标签:listview 作者:admin 日期:2020-03-20 23.32.13

delphi DateTimePicker 宽度如何与Delphi自带Style同步

解决办法1:把自带style的client项关闭<spanstyle="font-family:Verdana,Geneva,Arial,Helvetica,sans-seri…

类别:组件 标签: 作者:admin 日期:2020-03-19 10.01.43

delphi动态创建控件的例子

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,St…

类别:组件 标签: 作者:admin 日期:2020-03-17 22.45.57

Delphi 自动升级组件AutoUpgrader简单教程

AutoUpgrader简单教程(写给初学者)1.放置一个TauAutoUpgrader在窗体上2.双击auAutoUpgrader1,在弹出的对…

类别:组件 标签: 作者:admin 日期:2020-03-11 20.09.03

delphi MonthCalendar1 获取选中日期

usesDateUtils;procedureTForm1.MonthCalendar1Click(Sender:TObject);begincaption:=YearOf(MonthCalendar…

类别:组件 标签: 作者:admin 日期:2020-03-11 13.55.07

delphi Memo1删除前N行

procedureTForm1.FormCreate(Sender:TObject);vari:integer;beginforI:=7downto0doMemo1.Lines.Delete(I);e…

类别:组件 标签: 作者:admin 日期:2020-03-11 00.03.10