摘要：
方法一、二、三效果图:方法四效果图:方法一:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormMouseDown(Sender: TObject;... 阅读全文
posted @ 2008-04-30 22:26
万一
阅读(5895)
评论(6)
推荐(0)
摘要：
本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedur... 阅读全文
posted @ 2008-04-30 22:23
万一
阅读(3163)
评论(0)
推荐(0)
摘要：
本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; ... 阅读全文
posted @ 2008-04-30 21:39
万一
阅读(3141)
评论(2)
推荐(0)
摘要：
本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; p... 阅读全文
posted @ 2008-04-30 17:23
万一
阅读(3427)
评论(10)
推荐(0)
摘要：
本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedur... 阅读全文
posted @ 2008-04-30 16:59
万一
阅读(3175)
评论(0)
推荐(0)
摘要：
本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2:... 阅读全文
posted @ 2008-04-30 16:15
万一
阅读(3990)
评论(2)
推荐(0)
摘要：
本例效果图: WM_NCHITTEST 消息返回后, 消息的 Result 参数表示了鼠标所在窗口的部位. 窗体设计步骤: 新建工程后, 随便添加一个菜单; 设置窗体的 AutoScroll 属性为 True, 并添加一个 Panel 放在合适的位置, 以让窗口出现滚动条. unit Unit1; interface uses Windows, Messages, SysUtils, ... 阅读全文
posted @ 2008-04-30 14:56
万一
阅读(10050)
评论(4)
推荐(0)
浙公网安备 33010602011771号