2007 年 12月 13 日随笔档案 - 万一

2007年12月13日

摘要： WebBrowser1.GoHome; //到浏览器默认主页WebBrowser1.Refresh; //刷新WebBrowser1.GoBack; //后退WebBrowser1.GoForward; //前进WebBrowser1.Navigate('...'); //打开指定页面WebBrowser1.Navigate('about:blank'); //打开空页面//打开空页面, 并写入...WebBrowser1.Navigate('about:<head><title>标题</title><body& 阅读全文

posted @ 2007-12-13 16:16 万一阅读(42466) 评论(117) 推荐(4) 编辑

关于类的入门例子(4): property

摘要： //类单元 unit Person; interface type TPerson = class(TObject) private FName: string; FAge: Integer; public procedure SetName(const strName: string); procedure SetAge(const intAge... 阅读全文

posted @ 2007-12-13 15:30 万一阅读(4169) 评论(5) 推荐(0) 编辑

关于类的入门例子(3): Create 与 Destroy

摘要： //类单元 unit Person; interface uses Dialogs; type TPerson = class(TObject) private FName: string; FAge: Integer; public constructor Create(strName: string; intAge: Integer); d... 阅读全文

posted @ 2007-12-13 15:15 万一阅读(5497) 评论(8) 推荐(0) 编辑

关于类的入门例子(2): 数字盒子

摘要： //类单元 unit NumBox; interface type TNumBox = class private FCount: Integer; public procedure AddOne; procedure AddFive; procedure ZeroCount; function GetCount: Integer; e... 阅读全文

posted @ 2007-12-13 13:56 万一阅读(4083) 评论(21) 推荐(0) 编辑

关于类的入门例子(1): 继承窗体

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

posted @ 2007-12-13 12:54 万一阅读(5803) 评论(8) 推荐(0) 编辑

获取本机IP地址

摘要： uses WinSock; function LocalIP: String; type TaPInAddr = Array[0..10] of PInAddr; PaPInAddr = ^TaPInAddr; var phe: PHostEnt; pptr: PaPInAddr; Buffer: Array[0..63] of AnsiChar; i: Integ... 阅读全文

posted @ 2007-12-13 02:19 万一阅读(4626) 评论(2) 推荐(0) 编辑