EI3.0(DELPHI源码)

Delphi 7.0 源代码示例演示：显示密码编辑框中的密码，也就是获取Edit组件中的内容，显示给用户，在代码编写时，可参考下边的几行代码： 　　L:=GetWindowTextLength(Edit1.handle)+1; //得到名字长度，并将长度加1 　　GetMem(Name,L);//为将要得到的名字分配内存 　　GetWindowText(Edit1.handle,Name,L);//得到名字 　　label1.Caption:=String(Name);//将得到的名字显示于Label1 　　FreeMem(Name,0); //释放分配的内存 　　完整的源代码请下载。

Delphi实现窗口的淡入淡出渐变fadein fadeout动画效果，除了渐变，还有其它的动画形式，比如从中心扩散、水平从左到右、水平从右到左、垂直从上到下、垂直从下到上等。本实例默认状态下是使用了淡入淡出渐变，其它动画效果被注释掉了，如果你想用，可以去掉注释标记。 　　//淡入效果 　　//AnimateWindow(self.Handle,1000,AW_CENTER or AW_ACTIVATE); 　　//从中心扩散 　　//AnimateWindow(self.Handle,1000,AW_HOR_POSITIVE or AW_ACTIVATE); 　　//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_HOR_POSITIVE or AW_ACTIVATE); 　　//水平从左到右 　　//AnimateWindow(self.Handle,1000,AW_HOR_NEGATIVE or AW_ACTIVATE); 　　//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_HOR_NEGATIVE or AW_ACTIVATE); 　　//水平从右到左 　　//AnimateWindow(self.Handle,1000,AW_VER_POSITIVE or AW_ACTIVATE); 　　//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_VER_POSITIVE or AW_ACTIVATE); 　　//垂直从上到下 　　//AnimateWindow(self.Handle,1000,AW_VER_NEGATIVE or AW_ACTIVATE); 　　//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_VER_NEGATIVE or AW_ACTIVATE); 　　//垂直从下到上

Delphi 将数字转换成字符串，请参见以下的转换代码，转换成功后将以 showmessage的形式返回结果，核心转换功能代码实现： 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 i:integer; 　　 s:string; 　　begin 　　 i:=1234567; 　　 s:=inttostr(i); 　　 showmessage(s); 　　end;

Delphi 将字符串中的任意字符转换成大写，可将给定一串字符中指定的字符转换成大写，如示例运行效果所示，将字符串中的所有l字符变成大写的L。

delphi获取图片指定点RGB颜色值，载入一张BMP图像，鼠标单击图像任意处，将获取该处的RGB颜色分量图。任何一种颜色都是由RGB分量值构成，获取这些分量值，就可以改变这些值，从而改变颜色，为程序的进一步处理提供基础保障，获取RGB颜色分量，相关代码如下： 　　procedure TForm1.SpeedButton1Click(Sender: TObject); 　　begin 　　 if OpenPictureDialog1.Execute then 　　 begin 　　 image1.Picture.LoadFromFile(OpenPicturedialog1.FileName); 　　 Form1.Canvas.Draw(0,0,image1.Picture.Bitmap); 　　 end; 　　end;

Delphi 浏览性能数据库，选择单个、本地的计数器，显示选择计数器的信息。

Delphi 获取拖动到窗体中的文件的路径，这实际上是一个拖放打开文件的例子，这只不是其中的一个步骤，拖放打开是把文件拖放到本窗口中，直接打开该文件，而拖放得到路径是把文件的路径显示在窗口中，和打开文件其实难易程序是一样的。拖放后获取文件路径，代码如下： 　　procedure TForm1.FileIsDropped(var Msg: TMessage); 　　var 　　 NumFiles : longint; 　　 i : longint; 　　 FName : array[0..255] of char; 　　begin 　　 SetForegroundWindow(Handle); 　　 NumFiles := DragQueryFile(Msg.WParam,$FFFFFFFF,nil,0); 　　 for i := 0 to (NumFiles - 1) do 　　 begin 　　 DragQueryFile(Msg.WParam,i,FName,sizeof(FName)); 　　 Memo1.Lines.Add(FName); 　　 end; 　　end;

本源码演示Delphi如何用ESC键退出程序，为程序添加esc退出程序的功能，一般情况下，关闭程序都是通过ALT+f4或者直接点击窗口右上角的叉子关闭，不过我们也可以为程序添加通过键盘按下ESC键来关闭程序，本源码就是演示了此种功能，当用户按下ESC时，窗口即关闭，程序退出。

Delphi 7.0 使用Quotedstr函数返回字符串的引证串，为了演示方便，本程序于SQLSERVER数据库结合，在运行此程序之前，需要附加数据库。具体附加数据库的方法请参见说明书。

Delphi 文件拖放获取路径实例，用文件拖放的方式打开文件，本实例中虽然没有打开文件，但是获取到了文件路径，因此你就可以依此功能扩展成打开文件的功能。 　　实现方法使用了shellAPI,将Form1注册为文件拖放接收控件，说请请下载该源码。