…

群里我师傅给我的答案: unit Unit4; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TForm4 = class(TForm) Button1: TButton; procedure Button1…

颜色名称   颜色效果   Hex HTML clBlack   $000000 #000000 clMaroon   $000080 #800000 clGreen   $008000 #008000 clOlive   $008080 #808000 clNavy   $800000 #000080 clPurple   $800080 #800080 clTeal   $808000 #008080 clGray   $808080 #808080 clSilver   $C0C0C0 #…

absolute //它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同. var   Str: ];   StrLen: Byte absolute Str; //这个声明指定了变量StrLen起始地址与Str相同. //由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度. begin   Str := 'abc';   Edit1.Text := IntToStr(StrLen); end; abstract //它允许你创建抽象的方法, 包括有抽象…

首发在 ①FireMonkey[移动开发] 16523232 欢迎使用 FMX 开发手机程序的高手来访. 注意:如果您看了本文,翻译了 JNI,请发布到本群共享一份.不同意本规定的,请立即删除本文.凡是看了的,就表示您同意本规定. 请大家从群共享下载(①FireMonkey[移动开发] 16523232)某某某 源代码 带调用非官方 JNI 示例.zip里头的Androidapi.JNI.TelephonyGemini.pas就是我自己转的接口. 或者重启你的手机 源代码 V1.1里头也有一些转…

本文详细介绍了Delphi中常用的各个关键字名称及用法,供大家在编程过程中借鉴参考之用.详情如下: absolute: ? 1 2 3 4 5 6 7 8 9 10 //它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同. var  Str: string[32];  StrLen: Byte absoluteStr; //这个声明指定了变量StrLen起始地址与Str相同. //由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度. begin Str…

现在很多的应用程序都有这样一种功能,当用户选择最小化窗口时,窗口不是象平常那样最小化到任务栏上,而是“最小化”成一个任务栏图标.象FoxMail 3.0 NetVampire 3.0等都提供了这样的功能.实现这样的功能实际上并不复杂,在窗口最小化时,窗口会发出WM_SYSCOMMAND消息,你只要需要截取Windows的WM_SYSCOMMAND消息,在窗口最小化时隐藏窗口并调用WindowsAPI函数Shell_NotifyIcon将定义的图标添加到任务栏上,Shell_NotifyIcon的…

(*//标题:Delphi中建议使用的语句整理:Zswang连接:http://www.csdn.net/Expert/TopicView1.asp?id=724036日期:2002-06-22支持:wjhu111#21cn.com//*) { No.1 判断逻辑类型 }var B: Boolean;begin  B := Boolean(2); //这样只是为了调试//B := True;  if B = True then ShowMessage('B = True'); //不建议//不安…

位操作网上有很多介绍,请上网google/baidu,比如: 位操作技巧实例大全: http://blog.csdn.net/g_spider/article/details/5750665 位操作基础篇之位操作全面总结 http://blog.csdn.net/morewindows/article/details/7354571 ... 位操作C/C++或Delphi/pascal,其实都类似,只不过语言表达方式不同而已. 位操作 c/c++ delphi/pascal 与 & and 或…

Uses DateUtils //时间单元,非常有用. 记得引用这个单元,不然不能用. CompareDate 比较两个日期时间值日期部分的大小 CompareDateTime 比较两个日期时间值的大小 CompareTime 比较两个日期时间值时间部分的大小 DateOf 去除日期时间值的时间部分 DateTimeToJulianDate 转换日期时间值为儒略日 DateTimeToModifiedJulianDate 转换日期时间值为改进的儒略日 DateTimeToUnix 转换日期时间值…