摘要:
procedure TForm1.FormShow(Sender: TObject);begin Form1.WindowState:= wsMaximizedend;
阅读全文
posted @ 2014-07-15 16:42
何石-博客
阅读(155)
推荐(0)
编辑
摘要:
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Butt...
阅读全文
posted @ 2014-07-15 12:52
何石-博客
阅读(238)
推荐(0)
编辑
摘要:
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Butt...
阅读全文
posted @ 2014-07-15 12:51
何石-博客
阅读(298)
推荐(0)
编辑
摘要:
//查找一个文件 FileSearchvar FileName,Dir,s: string;begin FileName := 'notepad.exe'; Dir := 'c:\windows'; s := FileSearch(FileName,Dir); if s'' then ShowMe...
阅读全文
posted @ 2014-07-15 12:49
何石-博客
阅读(296)
推荐(0)
编辑
摘要:
//判断文件是否存在 FileExistsvar f: string;begin f := 'c:\temp\test.txt'; if not FileExists(f) then begin //如果文件不存在 end;end;//判断文件夹是否存在 DirectoryExistsvar di...
阅读全文
posted @ 2014-07-15 12:48
何石-博客
阅读(244)
推荐(0)
编辑
摘要:
这里有所有相关参数的解释: http://www.cnblogs.com/del/archive/2008/04/15/1154359.html//最大化窗口procedure TForm1.CreateParams(var Params: TCreateParams);begin inherite...
阅读全文
posted @ 2014-07-15 12:44
何石-博客
阅读(424)
推荐(0)
编辑
摘要:
方法1: 使用 TForm 的 BorderIcons 属性unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 ...
阅读全文
posted @ 2014-07-15 12:43
何石-博客
阅读(698)
推荐(0)
编辑
摘要:
现在准备建立 Items 数组属性; 在 public 区输入下面代码:property Items[Index: Integer]: Pointer;执行 Shift+Ctrl+C 后的代码是:... TMyList = class(TObject) private ... function ...
阅读全文
posted @ 2014-07-15 12:41
何石-博客
阅读(191)
推荐(0)
编辑