共 119 篇文章 |
|
代理模式:代理模式给某一个对象提供一个代理对象,并由代理对象控制对源对象的引用。代理模式可以并不知道真正的被代理对象,而仅仅持有一个被代理对象的接口,这时候代理对象不能够创建被代理对象,被代理对象必须有系统的其他角色代为创建并传入。备忘录模式:备忘录对象是一个用来存储另外一个对象内部状态的快照的对象。状态模式把所研究... 阅35 转0 评0 公众公开 12-12-18 11:21 |
阅2433 转14 评0 公众公开 12-10-20 17:13 |
delphi 窗口跟随unit Unit1;Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;TForm1 = class(TForm)procedure FormShow(Sender: TObject);protectedprocedure WMMove(var Message: TWMMove);Form1: TForm1;procedure TForm1.WMMove(var Message: TWMMove);if Assigned(Form2) thenbegin. 阅134 转0 评0 公众公开 12-10-20 17:12 |
为Delphi的控制台程式添加公司信息、版权信息为Delphi的控制台程式添加公司信息、版权信息。在delphi中可以通过 Project – Options – version info 来添加,但是有时这个选项是灰掉的,特别在控制台程序中是不可用的。在begin之前添加 {$R *.res}随后你再进入 Project – Options – version info 就可以添加公司信息和版权信息了。 阅174 转1 评0 公众公开 12-10-20 17:12 |
Caption := ''模拟一个页面'';Button2.Caption := ''假如知道按钮名称'';Button3.Caption := ''假如知道按钮的 ID'';Button4.Caption := ''假如只知道是第几个按钮'';end;{模拟一个页面}procedure TForm1.Button1Click(Sender: TObject);begin.{假如知道按钮名称, 譬如是: bt... 阅238 转1 评0 公众公开 12-10-20 17:12 |
delphi提取网页中的所有链接、点击第n个链接delphi提取网页中的所有链接、点击第n个链接。procedure Button1Click(Sender: TObject);{提取网页所有链接地址}procedure TForm1.Button1Click(Sender: TObject);var.{提取网页所有链接文本}procedure TForm1.Button2Click(Sender: TObject);var.{假如是第一个链接}if ListBox1.ItemIndex <>-... 阅192 转4 评0 公众公开 12-10-20 17:12 |
delphi显示jpg、png、gif图片unit Unit1;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);{显示 jpg 图片}procedure TForm1.Button1Click(Sender: TObject);var.{显示 png 图片}procedure TForm1.Button2Click(Sender: TObject);var.{显示 gif 图片}procedure TForm1.Button3Click(Sender: TObject);var.gif... 阅584 转4 评0 公众公开 12-10-20 17:11 |
delphi写文本文件procedure TForm1.Button1Click(Sender: TObject);var.LogFile: TextFile;AssignFile(LogFile, ''c:\Log1.txt'');CloseFile(LogFile);writeln(LogFile);writeln(LogFile, ''*********End**********'');writeln(LogFile, ''********begin*********'');Write(LogFile, '... 阅266 转3 评0 公众公开 12-10-20 17:11 |
delphi一句话获取本机IPdelphi一句话获取本机IP.//添加 TIdIPWatch 控件: IdIPWatch1procedure TForm1.Button1Click(Sender: TObject);var.ip: string;ip := IdIPWatch1.LocalIP;ShowMessage(ip);end; 阅394 转4 评0 公众公开 12-10-20 17:11 |
Delphi中的Free和NilDelphi中的Free和Nil.在Delphi中释放对象资源时一般用Obj.Free(Obj为一个实例名),不过程Delphi中还有一个FreeAndNil(对象名)函数,那么用哪个好呢?Nil是将指针置空,而Free则将指针指向的对象销毁掉。如果有多个指针指向同一个对象时,不要用FreeAndNil来销毁对象,因为不确定是否还有指针指向该对象,此时只需把不用的指... 阅1286 转6 评0 公众公开 12-10-20 17:10 |