今天在做网站的时候,遇到了一个奇怪的问题,在cs3和cs4里，我按t 调出字体输入工具，这时，我在文字框里输入文字，无论是英文还是中文，它都不能立即刷新出来，而是要我移动这个字体框后，它才会显示出字体。在图层里明明是输入成功了的。     我换了版本,重新启动电脑,什么都做了`就是没有反映?在网络上找了很多资料,也没有找到个详细的说明来,我遇到的具体的问题就是:一般正常的按字体输入工具后出现字体输入框，这时候假设我输入abc，光标会跟着向右移动，光标左边会出...

程序功能: 通过修改 webbrown 实现对打开的网页 进行修改和编辑 程序效果如下:代码文件: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, OleCtrls, SHDocVw;type TForm1 = class(TForm) WebBrowser1: TWebBrowser; Panel1: TPanel; Button1: TButton; CheckBox1: TCheckBox; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure CheckBox1Click(Sender:...

操作界面效果:代码如下: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CheckLst;type TForm1 = class(TForm) CheckListBox1: TCheckListBox; Button1: TButton; Edit1: TEdit; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure CheckListBox1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: ...

Niklaus Wirth Niklaus Wirth与Borland并无直接关系,但是，是他发明了Pascal语言。Phillipe Kahn也曾是他的学生。Delphi语言的演变过程是：Pascal，Object Pascal，Delphi。Niklaus Wirth在1984年获得计算机科学领域最高奖图灵奖。详见: PASCAL之父图灵奖获得者 Niklaus Wirth   Philippe Kahn 菲力浦·凯恩（Phillipe Kahn）是Niklaus Wirth的学生,在ETS毕业后，来到美国加利福尼亚州创立了Borland国际，当时就卖出了100多万个PASCAL拷贝。在C语言问世以前，PASCAL是风靡全球、最受欢迎的语言之一，...

function ByteToHex(Src: Byte):String;begin SetLength(Result, 2); asm MOV EDI, [Result] MOV EDI, [EDI] MOV AL, Src MOV AH, AL // Save to AH SHR AL, 4 // Output High 4 Bits ADD AL, "0" CMP AL, "9" JBE @@OutCharLo ADD AL, "A"-"9"-1@@OutCharLo: AND AH, $f ADD AH, "0" CMP AH, "9" JBE @@OutChar ADD AH, "A"-...

   由于工作需要,在以下的一段日子里我将会学习和复习以前大学学习过的VC,而且我将会进一步的~用Delphi的中的思想去理解VC 特别是他们面向对象的这一块~     多操作多看书~好多好多的事要做~呵呵~加油!!

{ No.1 判断逻辑类型 }var B: Boolean;begin B := Boolean(2); //这样只是为了调试//B := True; if B = True then ShowMessage('B = True'); //不建议//不安全 /////// if B then ShowMessage('B'); //建议//简短end;var B: Boolean;begin if Edit1.Text = '是' then //不建议//烦琐 B := True else B := False; /////// B := Edit1.Text = '是'; //建议//简短end;{ No.2 临时SQL查询 }begin QueryTemp.Close; QueryTemp.SQL.Text := 'SELECT SUM(金额) AS 合计 FROM 销售表'; QueryTemp.Open; //不...

本例效果图:代码文件: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DIB;type TForm1 = class(TForm) DXPaintBox1: TDXPaintBox; Button1: TButton; Button2: TButton;// procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { P...

本例效果图:代码文件: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DIB;type TForm1 = class(TForm) DXPaintBox1: TDXPaintBox; Button1: TButton; Button2: TButton;// procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { P...

效果显示:文件代码: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; DXPaintBox1: TDXPaintBox; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public decl...

代码效果演示:文件代码:[pre class=deiphi]unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DIB;type TForm1 = class(TForm) DXPaintBox1: TDXPaintBox; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}proce...

效果演示图片:文件代码: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DXDraws, DIB;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; DXPaintBox1: TDXPaintBox; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TFo...