吴越

摘要： 1.form隐藏最大化、最小化，只显示关闭+程序界面不能调整大小只要将窗体BorderStyle属性设置为：bsToolWindow2.form隐藏最大化、最小化，只显示关闭+程序界面不能调整大小将窗体BorderStyle属性设置为：bsSingle BorderIcons中的biMaximize设置为false 阅读全文

摘要： 1.修改exe图标Project-> Options-> Application页-> Load Icon..就可以了2.加入版本号Project --> Options --> version info 对Major、Minor、Release、Buil四项定值一般做法是1.2.3.41. 重大版本修改,可能是使用不同的协议不同的接口2. 功能性版本,重要功能的增加3. BUG修复4. 优化(对数据等不产生实质的影响) 阅读全文

摘要： 为什么我的panel总是会遮住speedbutton？是不是我的speedbutton的transparent设置为true有问题？但是修改成false也不行,我是菜鸟，第一次发贴，大人帮忙！ hedong (hedong)▲▲▲▲△- 盒子活跃会员2003-4-28 13:24:438楼：这也算问题？楼主需要看看入门书籍。如果speedbutton和panel的parent都是Form，当然运行时speedbutton会被panel挡住。只要将speedbutton的Parent设置为panel就可以了。方法就是：1.选择speedbutton,Ctrl+X2.再选择Panel，　Ctrl+ 阅读全文

摘要： 1.下载v4.11解压，copy到lib文件夹下。2.打开d7，分别open vclskin下d7的WinSkinD7R.dpk和WinSkinD7D.dpk，分别编译，然后install WinSkinD7D.dpk。 此时安装完毕。3.添加 Tools->Environment Options->Library>Library path。添加为E:\Borland\Delphi7\Lib\VCLSKIN.v4.11.2006.7.25.Delphi.BCB.PATCH\d7ps，安装也可直接双击v4.11下面的，install.exe 阅读全文

摘要： ListBox第一行字体比其他行小，把字体设置成“宋体”就可以了。只是编了个小程序纠结要不啊哟打包，都不知道打包是啥玩意，以为老兄的话让我确定不用打包。“如果没用数据库，没有用Activex控件的话，Delphi根本不用打包，一个Exe就可以执行了。” 阅读全文

摘要： procedure isNull(grp:TGroupBox);var I:Integer;const arr: array[0..1] of string = ('edit1为空', 'edit2为空');begin for I := 0 to grp.ControlCount - 1 do begin if grp.Controls[i] is TEdit then begin if (grp.Controls[i] as TEdit).Text = '' then begin showmessage(arr[i]); B:=false; e 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject);var I:Integer;const arr: array[0..1] of string = ('edit1为空', 'edit2为空');begin for I := 0 to grp1.ControlCount - 1 do begin //grp1即为groupbox1 if grp1.Controls[i] is TEdit then begin if (grp1.Controls[i] as TEdit).Text = '' then be 阅读全文

摘要： procedure TForm1.Edit1Click(Sender: TObject);const arr: array[-1..0] of string = ('man', 'woman');begin Edit1.Tag := not Edit1.Tag; Edit1.Text := arr[Edit1.Tag];end; 阅读全文

摘要： 把窗体客户区图像保存到文件或剪切板 使用剪切板[5]: SetAsHandle、GetAsHandle - 自定义格式 使用剪切板[4]: 如果把子控件一起复制? - 同时回复 ghd2004 的问题 使用剪切板[3]: SetComponent、GetComponent 使用剪切板[2]: Assign、HasFormat 使用剪切板[1]: AsText、SetTextBuf、GetTextBuf 阅读全文

摘要： 首部 function Format(const Format: string; const Args: array of const): string; $[SysUtils.pas 功能 返回按指定方式格式化一个数组常量的字符形式 说明 这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解 "% " [索引 ": "] [ "- "] [宽度] [ ". " 摘要] 类型 Format( 'x=%d ', [12]); // 'x=12 ' //最普通 阅读全文