![](https://img-blog.csdnimg.cn/20201014180756928.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi
alsamsung
这个作者很懒,什么都没留下…
展开
-
Delphi笔记(整理)-符号和基本语法
Delphi笔记(整理)-符号和基本语法转载 2011-03-01 21:04:00 · 506 阅读 · 0 评论 -
使用剪切板:TClipboard 类
把窗体客户区图像保存到文件或剪切板使用剪切板[5]: SetAsHandle、GetAsHandle - 自定义格式使用剪切板[4]: 如果把子控件一起复制? - 同时回复 ghd2004 的问题使用剪切板[3]: SetComponent、GetComponent使用剪切板[2]: Assign、HasFormat使用剪切板[1]: AsText、SetTextBuf、GetTextBuf转载 2011-03-03 12:04:00 · 483 阅读 · 0 评论 -
安装vclskin v4.11
<br />1.下载v4.11解压,copy到lib文件夹下。<br />2.打开d7,分别open vclskin下d7的WinSkinD7R.dpk 和WinSkinD7D.dpk,分别编译,然后install WinSkinD7D.dpk。<br /> 此时安装完毕。<br />3.添加 Tools->Environment Options->Library>Library path。添加为E:/Borland/Delphi7/Lib/VCLSKIN.v4.11.2006.7.25.Delphi.原创 2011-03-28 15:27:00 · 677 阅读 · 0 评论 -
为什么panel总是会遮住speedbutton?
<br />为什么我的panel总是会遮住speedbutton?是不是我的speedbutton的transparent设置为true有问题?但是修改成false也不行,<br />我是菜鸟,第一次发贴,大人帮忙!<br /> <br />hedong(hedong)▲▲▲▲△-盒子活跃会员2003-4-28 13:24:438楼:这也算问题?楼主需要看看入门书籍。<br /><br />如果speedbutton和panel的parent都是Form,当然运行时speedbutton会被panel挡住。原创 2011-03-28 23:34:00 · 607 阅读 · 0 评论 -
修改exe图标,加入版本号
<br />1.修改exe图标<br />Project-> Options-> Application页-> Load Icon..就可以了<br />2.加入版本号<br />Project --> Options --> version info <br />对Major、Minor、Release、Buil四项定值一般做法是<br />1.2.3.4<br /><br />1. 重大版本修改,可能是使用不同的协议不同的接口<br />2. 功能性版本,重要功能的增加<br />3. BUG修复<原创 2011-03-29 10:05:00 · 613 阅读 · 0 评论 -
form隐藏最大化,显示最小化、关闭+程序界面不能调整大小
只要将窗体BorderStyle属性设置为:bsToolWindow原创 2011-03-29 12:00:00 · 2295 阅读 · 0 评论 -
delphi if...else...语句和函数参数传递
<br />1if语句<br />对if-then型语句,仅当条件满足时,语句才执行;对if-then-else型,if语句在两条语句中选择一条执行。条件用布尔表达式建立,句子中的条件部分可以是一系列条件(用and、 or 、 not等布尔操作符联接起来),if语句又可以嵌套另一个if语句,要注意的是,不能在第一句之后、else 关键词之前加分号,否则编译器将告知语法错误。<br /> <br />if ....then<br /> begin<br /> .......<br />原创 2011-03-31 10:24:00 · 2277 阅读 · 0 评论 -
edit中只能输入数字、小数点(只可以1个小数点)和负号+多个edit共用一个事件
在keypress事件加入如下代码即可 if not (key in ['0'..'9','.',#8]) then key:=#0;if (key='.') and (Pos('.',Edit1.Text)>0) then key:=#0;pos('.',edit1.text)得到的是 . 第一次在edit.text中出现的位置 因为只要edit1.text中有一个 . 返回值肯定大于0 上面这段代码只能在edit1中应用,如果想将该事件应用到多个edit上,可做如下修改:(原创 2011-04-01 22:32:00 · 664 阅读 · 0 评论 -
edit中只能输入数字、小数点(只可以1个小数点)和负号+多个edit共用一个事件
<br />在keypress事件加入如下代码即可 <br />if not (key in ['0'..'9','.',#8]) then<br /> key:=#0;<br />if (key='.') and (Pos('.',Edit1.Text)>0) then<br /> key:=#0;<br /> <br /> <br /> <br />pos('.',edit1.text)得到的是 . 第一次在edit.text中出现的位置 <br />因为只要edit1.text中原创 2011-04-01 22:32:00 · 466 阅读 · 0 评论 -
edit中只能输入数字、小数点等等候,还能使用ctrl+c和ctrl+c的办法
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin case Key of '0'..'9': ; //对数字键响应 #8,#9,#37,#39,#46,#35,#36:; //对退格键、Tab键、左右箭头响应 #1,#3,#22,#24:;//对Ctrl C、V、A、X响应原帖http://www.delphibbs.com/delphibbs/dispq.asp?lid=1原创 2011-04-01 23:03:00 · 791 阅读 · 0 评论 -
判断groupbox中所有的edit是否为空,并给出空的哪个edit为空(2)
<br />procedure isNull(grp:TGroupBox);<br />var<br /> I:Integer;<br />const<br /> arr: array[0..1] of string = ('edit1为空', 'edit2为空');<br />begin<br /> for I := 0 to grp.ControlCount - 1 do begin<br /> if grp.Controls[i] is TEdit then<br />原创 2011-03-03 21:08:00 · 473 阅读 · 0 评论 -
判断groupbox中所有的edit是否为空,并给出空的哪个edit为空
procedure TForm1.Button1Click(Sender: TObject);var I:Integer;const arr: array[0..1] of string = ('edit1为空', 'edit2为空');begin for I :=0to grp1.ControlCount -1do begin if grp1.Controls[i] is TEdit then begin if (grp1.Controls[i] as TEd原创 2011-03-03 14:08:00 · 483 阅读 · 0 评论 -
给 Edit 两个可选值
<br />procedure TForm1.Edit1Click(Sender: TObject);<br />const<br /> arr: array[-1..0] ofstring = ('man', 'woman');<br />begin<br /> Edit1.Tag := not Edit1.Tag;<br /> Edit1.Text := arr[Edit1.Tag];<br />end;转载 2011-03-03 12:49:00 · 288 阅读 · 0 评论 -
Delphi 快捷键
Delphi 快捷键转载 2011-03-01 23:14:00 · 325 阅读 · 0 评论 -
类型转换函数
类型转换函数转载 2011-03-01 23:16:00 · 403 阅读 · 0 评论 -
System 中的数学函数
<br /> <br />//绝对值: Abs<br />var<br /> d: Real;<br /> v: Variant;<br />begin<br /> d := Abs(-1.2);<br /> ShowMessage(FloatToStr(d)); {1.2}<br /><br /> v := '-100';<br /> ShowMessage(v); {-100; v 是变体类型无需转换}<br /><br /> v := Abs(v);<br />转载 2011-03-02 10:08:00 · 250 阅读 · 0 评论 -
复制ListBox的结果
根据haochin的回复,我稍微改了一下,最后是这样:use Clipbrdprocedure TForm1.Button2Click(Sender: TObject);var I : Integer;begin Clipboard.Clear; for I := 0 to ListBox1.Count - 1 do begin Clipboard.AsText := Clipboard.AsText +listbox1.Items[I]+#13#10; end; //Clipboard.原创 2011-03-02 14:30:00 · 1451 阅读 · 1 评论 -
Format 函数
<br />首部 function Format(const Format: string; const Args: array of const): string; $[SysUtils.pas <br />功能 返回按指定方式格式化一个数组常量的字符形式 <br />说明 这个函数是我在Delphi中用得最多的函数,现在就列举几个例子给你个直观的理解 <br />"% " [索引 ": "] [ "- "] [宽度] [原创 2011-03-02 16:33:00 · 367 阅读 · 0 评论 -
判断edit是否为空
判断edit是否为空原创 2011-03-01 20:36:00 · 575 阅读 · 0 评论 -
Delphi的实数计算结果中只保留2位小数
<br />Delphi的实数计算结果中如何只保留2位小数<br />━━━━━━━━━━━━━━━━━━━━━━━━━━<br />你可以使用这样的办法: <br /> x := Round(x * 100) / 100; <br /> <br /> 高峰、空中人的意见: <br /> 在USER部份加入MATH单元后可以使用 <br /> x:=RoundTo(y, 2) <br /> <br /> 郑茂强的意见: <br /> 我是用这个办法的:转载 2011-03-01 20:38:00 · 13891 阅读 · 1 评论 -
限定只能输入数字和小数点
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin case Key of '0'..'9', #8, #13, #27, '.' : ; else begin MessageBox(Handle, '请输入数字', PChar('输入错误'), MB_OK + MB_ICONINFORMATION); Key := #0; end; end;end;原创 2011-03-01 20:48:00 · 416 阅读 · 0 评论 -
Math 中常用的数学函数
<br /> <br />//整除与余数: DivMod<br />const<br /> a = 11;<br /> b = 3;<br />var<br /> x,y: Word;<br />begin<br /> ShowMessage(IntToStr(a div b)); {整除得 3}<br /> ShowMessage(IntToStr(a mod b)); {余数 2}<br /><br /> DivMod(a,b,x,y);<br /> ShowMessage(IntToSt转载 2011-03-02 10:06:00 · 481 阅读 · 0 评论 -
ListBox第一行字体比其他行小的问题,delphi要不要打包
<br />ListBox第一行字体比其他行小,把字体设置成“宋体”就可以了。<br /> <br />只是编了个小程序纠结要不啊哟打包,都不知道打包是啥玩意,以为老兄的话让我确定不用打包。“如果没用数据库,没有用Activex控件的话,Delphi根本不用打包,一个Exe就可以执行了。”原创 2011-03-04 21:48:00 · 902 阅读 · 0 评论 -
记录类型(1)
<br />记录类型<br />记录类型用于定义不同类型数据项的固定集合。记录中每个元素,或者说域,有它自己的类型。记录类型定义中列出了所有域,每个域对应一个域名,通过域名可以访问它。<br />下面简单列举了记录类型的定义、类型变量的声明以及这类变量的使用:type Date = record Year: Integer; Month: Byte; Day: Byte; end; var BirthDay: Date; begin原创 2011-04-12 09:52:00 · 942 阅读 · 0 评论