随笔分类 -  delphi

delphi 回调函数例子 用函数过程作为参数
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,ComCtrls, StdCtrls; type TFunc = procedure() of object; TForm1 = class(TForm) ... 阅读全文
posted @ 2018-04-20 09:33 刀小爱
image 读取 imagelist 里面图片
摘要：var i:integer=1;procedure TForm4.BitBtn1Click(Sender: TObject);begin Inc(i);if i>ImageList1.Count-1 then i:=0;ImageList1.GetBitmap(i,image1.... 阅读全文
posted @ 2015-12-26 16:13 刀小爱 阅读(780) 评论(0) 推荐(0)
小写转大写
摘要：Function QtyToChar(Qty: Double): String;Const Con: Array [0 .. 3] Of String[2] = ('', '拾', '佰', '仟'); DD: Array [0 .. 9] Of String[2] = ('零', '壹', '... 阅读全文
posted @ 2015-12-16 11:09 刀小爱 阅读(218) 评论(0) 推荐(0)
Delphi 关键 重启 注销
摘要：//在初始化的时候获取权限 var hToken: THandle; Tkp: TTokenPrivileges; Zero: DWORD;begin OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TO... 阅读全文
posted @ 2015-09-21 14:58 刀小爱 阅读(315) 评论(0) 推荐(0)
delphi 登录窗体
该文被密码保护。
posted @ 2015-02-14 09:04 刀小爱 阅读(2) 评论(0) 推荐(0)