Delphi
脚指头
茕茕白兔东走西顾衣不如新人不如故
展开
-
Pchar 、char、string有什么区别?与转换
Char是单个字符; PChar 就是指向一个以Null 结尾的每个字符为一个字节的字符串的指针。 (可以看成是一个字符串) String是字符数组,以字符#0结尾;Char只占一字节的空间,而Pchar保存的是一个指针在现在32位的系统中占有1个指针字节的大小。原创 2011-08-20 09:04:00 · 2520 阅读 · 0 评论 -
DBgrid 第一列加入CheckBox,点击列头 全选/全消
真对sqlserver数据说明(其他数据库没有试过):在数据库对应的表中加入 bit 列验证是否被选中然后dbgrid第一列的filedname是bit列在DBgrid的onDrawColumnCell事件中写:procedure DBGrid1DrawColu原创 2011-08-20 10:23:55 · 5070 阅读 · 1 评论 -
delphi DBgrid 数据随着鼠标滚动而滚动!
在delphi中dbgrid控件用鼠标滚动时,只能滚动当前显示的dbgrid数据,而无法滚动整个滚动条的数据。下面是解决方法!1, 在你的delphi页面增加控件:Additional选项卡中的ApplicationEvents控件。2, 然后在Application原创 2011-10-13 14:07:16 · 3681 阅读 · 1 评论 -
Delphi Combobx objects 应用
1,循环塞入 value 和 keywhile not ADOQuery1.Eof do begin ComboBox1.Items.AddObject(ADOQuery1.FieldByName('ColumnNameName).AsString, TObje原创 2012-04-21 12:55:33 · 697 阅读 · 0 评论 -
delphi 获取指定文件路径中的文件名及扩展名
var filename:string;filename:=ExtractFileName('路径');例如:1.txt:=ExtractFileName('c:\windows\1.txt');var kuozhanming:string;kuozhanming:=ExtractFileExt('路径');例如:.txt:=ExtractFileExt('c:\windows原创 2013-04-27 16:07:43 · 3178 阅读 · 0 评论 -
Delphi中让窗口关闭按钮无效的6种方法
1、 procedure TForm1.WMInit(var msg: TWMInitMenuPOPUP); begin inherited; EnableMenuItem(msg.MenuPopup ,sc_Close,MF_BYCOMMAND or MF_GRAYED) end;procedure TForm1.FormCreate(Sender: TObject)转载 2013-05-15 16:04:13 · 2450 阅读 · 0 评论 -
Delphi 窗口没有边框的方法
只需在form子窗体中create中写入以下代码,就可以了。setwindowlong(handle,GWL_STYLE,getwindowlong(handle,GWL_STYLE)and not ws_caption);clientheight:=height;refresh;以上代码我实验过,完全可行。当然你还可以改变子窗体的其他选项,如下:1、使窗体没有边框在f原创 2013-08-27 15:11:33 · 5296 阅读 · 0 评论 -
DBGridEH 中如何获取合计列的数据信息
GetFooterValue(Row:Integer;Column:TColumnEh):StringDBGridEH1.GetFooterValue(1,DBGridEH1.Columns[0]); 来获取合计列的信息原创 2013-10-30 11:28:06 · 4385 阅读 · 0 评论 -
Delphi FastReport 自适应行高
上级容器的属性Stretched := True;Memo的StretchMode属性设置为:smActualHeight如果一行有多个Memo,只有一列是自适应高度,可以将其他列的StretchMode设置为smMaxHeight,这样就统一行的样式,模拟了execl。...原创 2019-01-21 10:09:23 · 2344 阅读 · 0 评论