01 2019 档案

摘要：//使固定大小的面板panel居于父类界面（TabSheetSY）的中心 在OnResize事件中加入以下代码： panSumAll.Top := Trunc((TabSheetSY.Height-panSumAll.Height)/2); panSumAll.Left := Trunc((TabS 阅读全文

摘要：实现无边框窗体很简单，直接将窗体的BorderStyle属性设置为bsNone即可。但是这样会引起2个问题： 1、在xp系统下，任务栏鼠标右键点击无法弹出菜单 解决办法：在FormShow中加入这个过程即可 procedure TForm2.InitSysMenu;var WindowStyle: 阅读全文

摘要：Combobox记忆功能 类似IE5.0输入框记忆功能，让combobox中最近记录的前10条内容保存到文件中? 用一个文件记录下可以了。procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);begin Combo 阅读全文

摘要：1、{声明 拦截最大化，最小化命令，从新设置屏幕高度} procedure WMGetMinMaxInfo(var mes: TWMGetMinMaxInfo);message WM_GetMinMaxInfo; 2、{截获系统消息，然后改写窗体最大化高度。Screen.WorkAreaHeight 阅读全文

摘要：从delphi的角度看Google(谷歌)URL编码解码方式 在网上搜索了一下，似乎没有什么关于google的URL编码解码的很详细的资料，因此在这里写一下，希望给有用的人提供一点帮助。 使用google谷歌搜索一下关键词，对应的编码如下： 刀：%E5%88%80 刀具：%E5%88%80%E5%8 阅读全文

只有注册用户登录后才能阅读该文。