知识大全学习DELPHI程序开发中的几则应用技巧

Posted 2022-07-22 知

篇首语：不飞则已，一飞冲天；不鸣则已，一鸣惊人。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全学习DELPHI程序开发中的几则应用技巧相关的知识，希望对你有一定的参考价值。

学习DELPHI程序开发中的几则应用技巧 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　delphi是全新的可视化编程环境为我们提供了一种方便快捷的windows应用程序开发工具它使用了microsoft windows图形用户界面的许多先进特性和设计思想采用了弹性可重复利用的完整的面向对象程序语言(object oriented language) 当今世界上最快的编辑器最为领先的开发工具之一对于广大的程序开发人员来讲使用delphi开发应用软件无疑会大大地提高编程效率另外DELPHI是一个开放系统只要灵活使用一些控件即可开发出各种类型的系统不论N－Tie程序多线程程序分布计算程序（包括D和CORBAR） TCP程序 Web程序 ActiveX 中间件推程序（Push）甚至你可以用它来写汇编程序下面笔者就列举几则DELPHI的开发应用事例

　　实现链接效果

　　该效果是表示当鼠标指向某字体该字体就出现下划线鼠标指针变为一支手指按下后就打开浏览器或邮件编写器的功能请按下列办法做

　　先在一个窗体中加入一个Label 在OnMouseMove事件里加入下列代码

　　procedure TForm Label MouseMove(Sender: TObject;shift:Tshiftstate;x y:integer); 　　begin 　　Label Font Style:=[fsbold fsunderline]; 　　Label Font Color:=clYellow; 　　end; 　　　接着在Form 的OnMouseMove事件里加入下列代码

　　procedure TForm FormMouseMove(Sender: TObject;shift:Tshiftstate;x y:integer); 　　begin 　　Label Font Style:=[fsbold]; 　　Label Font Color :=clmaroon; 　　end;

　　procedure TForm Label Click(Sender: TObject); 　　begin 　　Shellexecute(handle nil pchar( mailto:test@ cn ) nil nil sw_shownormal); 　　end; 　　再将Label Cursor的鼠标指针设为crHandPoint 那么就有这种效果了

　　获取计算机的身份信息

　　获取计算机的身份信息功能表示通过程序设计达到自动获取机器的名字和IP地址的目的要实现这个功能我们可以使用DELPHI程序提供的TCP控件来完成下面是一个调用了WINSOCK的独立单元的一段功能代码我们可以把它直接嵌入到自己的程序中去

　　uses Winsock; 　　procedure TForm FormCreate(Sender: TObject); 　　var 　　wVersionRequested : WORD; 　　wsaData : SAData; 　　begin

　　创建 WinSock 　　wVersionRequested := MAKEWORD( ); 　　WSAStartup(wVersionRequested wsaData); 　　end; 　　procedure TForm Button Click(Sender: TObject); 　　var p : PHostEnt; s : array[ ] of char; p : pchar; 　　begin

　　得到计算机名称　　GetHostName(@s ); 　　p:=GetHostByName(@s); 　　Memo Lines Add(p^ h_Name);

　　得到机器IP地址　　p := iNet_ntoa(PInAddr(p^ h_addr_list^)^); 　　Memo Lines Add(p ); 　　end;

　　procedure TForm FormDestroy(Sender: TObject); 　　begin

　　释放 WinSock 　　WSACleanup; 　　end 　　修改显示分辨率

　　Windows提供给我们两个API函数可以动态调整显示器的分辨率他们是EnumDisplaySettings() 和ChangeDisplaySettings() 下面的这个源代码实现了在两中分辨率之间的变换并且可以不用重新启动计算机

cha138/Article/program/Delphi/201311/8493

知识大全 学习DELPHI程序开发中的几则应用技巧

知识大全学习DELPHI程序开发中的几则应用技巧