摘要： 这是可能需要的函数: System.AllocMem; System.AllocMemCount; System.AllocMemSize; System.Dispose; System.Finalize; System.FreeMem; System.FreeMemory; System.GetHeapStatus; System.GetMem; System.GetMemory; Syste... 阅读全文

摘要： 问题来源: http://www.cnblogs.com/del/archive/2008/05/02/1179416.html#1179645 我觉得 GetMem 和 GetMemory 的功能是一样的, 有点类似与 Format 和 FmtStr 的关系; 它们的区别只在于参数位置和返回值的区别, 看看 GetMemory 函数的源码就知道, 它其实就是调用的 GetMem. unit U... 阅读全文

摘要： 问题来源: http://www.cnblogs.com/del/archive/2008/05/02/1179416.html#1179645 一个全局变量可以初始化, 如果你不主动初始化, 也会被自动初始化; 一个局部变量不能被初始化, 虽然你不能主动初始化, 但它会被赋予一个随机值. unit Unit1; interface uses Windows, Messages, Sys... 阅读全文

摘要： 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); ... 阅读全文

摘要： 譬如让 Edit1 文本右对齐: SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_RIGHT); 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Gr... 阅读全文

摘要： 方法一(通过 Width、ClientWidth 推算): var frame,caption: Integer; begin frame := (Width - ClientWidth) div 2; caption := Height - ClientHeight - frame * 2; ShowMessageFmt('边框宽: %d; 标题高: %d', [frame,c... 阅读全文

摘要： 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; ... 阅读全文

摘要： 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; procedure ... 阅读全文

摘要： 方法一、二、三效果图:方法四效果图:方法一:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormMouseDown(Sender: TObject;... 阅读全文

摘要： 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedur... 阅读全文