天行健,君子以自强不息;地势坤,君子以厚德载物。


分类: Delphi技巧预览模式: 普通 | 列表
最大化按钮不可用,而且窗体最大化,我以前一直这样设置:在Object Inspector下把BorderIcons属性下的biMaximize属性设置为False,然后把WindowState属性设置为wsMaximized,结果是窗体的最大化按钮的确是隐藏了,窗体也最大化了,但是窗体也遮盖住了任务栏!

网上也有很多人来讨论这个问题的,也有人说窗体的ALign 属性为 alClient同时窗体WindowState属性要设置为wsNormal就可以了;这样看起来的确是最大化了,但是窗体还是有点边框显示了出来,当你点击最大化的时候窗体还是会重新调整为真正的最大化。还有人在窗体创建过程使用如下代码:
var  
  TrayWnd:  HWnd;

查看更多...

Tags: Delphi 窗体 最大化按钮 BorderIcons biMaximize CreateForm

分类:Delphi技巧 | 固定链接 | 评论: 1 | 引用: 0 | 查看次数: 560
Delphi创建控制台(Console)程序默认是无法添加图标和版权的。经过仔细的对比窗体程序与控制台程序源码,发现窗体程序的工程文中,在uses结束begin开始的地方有一句如下代码:
{$R *.res}
而控制台程序的工程文件里是没有这句代码的。于是,我就在想是不是我在控制台程序的工程文件里加上如上代码,我们就可以更改图标和添加版权了,说做就开始做,加上如上代码,然后保存,Delphi会自动生成资源文件,如下图:

本以为可以就可以编辑图标和版权了,结果发现,版权是可以修改了,但是图标还是无法修改的。

查看更多...

Tags: Delph 控制台 Console 程序 图标 版权信息

分类:Delphi技巧 | 固定链接 | 评论: 4 | 引用: 0 | 查看次数: 596

无标题窗体的移动及其简单美化


      先看效果图吧。

      最近做Web,发现网页三剑客总是会留下一些“最近打开项目”这样的痕迹在软件的界面上,心里总是觉得很不舒服,于是萌发了写一个清除器的念头。说动手就动手吧!

查看更多...

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 293
{**********************************************************************
API函数 AnimateWindow 使用:
函数功能:窗体显示和隐藏时产生特殊的动画效果;可以产生两种类型的动画效果:
          滚动动画 和 滑动动画
函数原型:BOOL AnimateWindow(HWND hWnd, DWORD dwTime, DWORD dwFlags)

查看更多...

Tags: Delphi Windows API 函数 AnimateWindow 窗体 特效

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 479

如何编写需要启动参数的Delphi程序

有些时候,我们想让我们的程序根据不同的参数启动不同的界面或者,通过主程序才可以调用,这个时候使用启动参数也不是一种可行的方法。

1.首先建立一个工程,然后选择Project菜单;
2.选择View Source命令;
3.这样就打开了工程文件,一般的工程文件的代码如下:

查看更多...

Tags: 编写 需要 启动参数 Delphi 程序

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 394

Delphi下IdHTTP组件POST注册网页表单

这个是以前写的一个注册会员的代码段,不论如何还是比较完整的。按照常规的,必须是先来GET那个引导你注册的网页,并且获取Cookie以便后面POST数据的时候用,我这里就省略了,因为我当时的ASP程序会判断UserAgent的,如果UserAgent与提交的不吻合,那么会返回缺少参数之类的字符串,总之用IE等浏览器,你是绝对无法打开那个提交注册的网页的。好了,不费话了,直接给出下面的代码:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  UserName    : String;

查看更多...

Tags: Delphi idHTTP 组件 POST 注册 网页 表单

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 920

delphi 可变记录

若记录是由一部分固定不变和另一部分变化部分是随固定部分中的某个数据
项的具体取值而定的数据项所组成的称为记录变体。带记录变体的记录类型定义有以下形式:
  type
   <类型标识符>=record
     <域名1>:<类型1>;

查看更多...

Tags: Delphi 可变记录 Record packed record

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 330

Delphi将Excel导入Access


导入前是空表

导入后的状态

查看更多...

Tags: Delphi Excel 导入 Access

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 531

Delphi之TDrawGrid绘制



一直都对QQ的好友列表很好奇,最先感觉用TreeView实现的,看了看TreeView的源码,发现要实现还真的不太好完成任务啊,其中最大的原因是自己的功力不足,后来觉得用ListView来做吧,结果也是失败,后来又想到ListBox,结果发现也是难成,最后发现有一个TDrawGrid,可以来绘制,但是不知道那两行文字怎么搞,有知道的望告知,谢谢。好了不再废话,就把最近对TDrawGrid的一些操作记录如下:

1.我们先设置TDrawGrid的属性:

查看更多...

Tags: Delphi TDrawGrid 绘制 TBitmap LoadFromFile TRect TCanvas Transparent

分类:Delphi技巧 | 固定链接 | 评论: 2 | 引用: 0 | 查看次数: 1304
        在Delphi 7下,如果想在鼠标MouseEnter、MouseLeave的时候改变TLabel自身的颜色,很多人可能会采用 Label.Color := clRed;这样的方式来实现,我当初也是一样,结果无论鼠标怎么移动Tlabel都不会改变自身的颜色,但是通过Object Inspecter却可以设置TLabel的颜色,但是在它的MouseEnter、MouseLeave直接给Color属性赋值,TLabel的颜色却无法跟随鼠标的进入和移出而更改自身的颜色,经过跟踪发现TLabel的color属性原来根本就没有Color属性,而这个Color属性却是来自TControl的。

    我先看一看三幅图:

这是最初的效果

查看更多...

Tags: Delphi下TLabel 鼠标 MouseEnter MouseLeave 颜色

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 829