学习DELPHI程序开发中的几则应用技巧
源代码网整理以下delphi是全新的可视化编程环境，为我们提供了一种方便、快捷的windows应用程序开发工具。它使用了microsoft windows图形用户界面的许多先进特性和设计思想，采用了弹性可重复利用的完整的面向对象程序语言(object-oriented language)、当今世界上最快的编辑器、最为领先的开发工具之一。对于广大的程序开发人员来讲，使用delphi开发应用软件，无疑会大大地提高编程效率。另外DELPHI是一个开放系统，只要灵活使用一些控件，即可开发出各种类型的系统，不论N－Tie程序、多线程程序、分布计算程序（包括DCOM和CORBAR）、TCP程序、Web程序、ActiveX、中间件、推程序（Push），甚至你可以用它来写汇编程序。下面笔者就列举几则DELPHI的开发应用事例。 源代码网整理以下1、实现链接效果 源代码网整理以下该效果是表示当鼠标指向某字体，该字体就出现下划线，鼠标指针变为一支手指，按下后就打开浏览器或邮件编写器的功能，请按下列办法做： 源代码网整理以下先在一个窗体中加入一个Label1，在OnMouseMove事件里加入下列代码 源代码网整理以下 源代码网整理以下 begin 源代码网整理以下 Label1.Font.Style:=[fsbold,fsunderline]; 源代码网整理以下 Label1.Font.Color:=clYellow; 源代码网整理以下 end; 源代码网整理以下 源代码网整理以下 begin 源代码网整理以下 Label1.Font.Style:=[fsbold]; 源代码网整理以下 Label1.Font.Color :=clmaroon; 源代码网整理以下 end; 源代码网整理以下 procedure TForm1.Label1Click(Sender: TObject); 软件开发网 www.mscto.com 源代码网整理以下 begin 源代码网整理以下 Shellexecute(handle,nil,pchar("mailto:test@21cn.com"),nil,nil,sw_shownormal); 源代码网整理以下 end; 源代码网整理以下再将Label1.Cursor的鼠标指针设为crHandPoint，那么就有这种效果了。 源代码网整理以下2、获取计算机的身份信息 源代码网整理以下获取计算机的身份信息功能表示通过程序设计，达到自动获取机器的名字和IP地址的目的。要实现这个功能，我们可以使用DELPHI程序提供的TCP控件来完成。下面是一个调用了WINSOCK的独立单元的一段功能代码，我们可以把它直接嵌入到自己的程序中去。 源代码网整理以下 源代码网整理以下 procedure TForm1.FormCreate(Sender: TObject); 源代码网整理以下 var 软件开发网 www.mscto.com 源代码网整理以下 wVersionRequested : WORD; 源代码网整理以下 wsaData : TWSAData; 源代码网整理以下 begin 源代码网整理以下 {创建 WinSock} 源代码网整理以下 wVersionRequested := MAKEWORD(1, 1); 源代码网整理以下 WSAStartup(wVersionRequested, wsaData); 源代码网整理以下 end; 源代码网整理以下 procedure TForm1.Button1Click(Sender: TObject); 源代码网整理以下 var p : PHostEnt; s : array[0..128] of char; p2 : pchar; 软件开发网 www.mscto.com
源代码网整理以下 begin 源代码网整理以下 {得到计算机名称} 源代码网整理以下 GetHostName(@s,128); 源代码网整理以下 p:=GetHostByName(@s); 源代码网整理以下 Memo1.Lines.Add(p^.h_Name); 源代码网整理以下 {得到机器IP地址} 源代码网整理以下 p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^); 源代码网整理以下 Memo1.Lines.Add(p2); 源代码网整理以下 end; 软件开发网 www.mscto.com 源代码网整理以下 procedure TForm1.FormDestroy(Sender: TObject); 源代码网整理以下 begin 源代码网整理以下 {释放 WinSock} 源代码网整理以下 WSACleanup; 源代码网整理以下 end 源代码网推荐 源代码网供稿. |
