让文本动起来

1 2 下一页

　　Delphi是具有可视化界面的面向对象编程语言，它以其功能强大、简便易用等诸多特性深受编程人员的喜爱。在Delphi 6 程序中输出文字时，文字一般是水平或垂直的，虽然可以很容易地改变文字的字体、字号、颜色，但要输出带任意倾斜度的文字以达到特殊的显示效果就有点困难了。

　　Win32 API即为Windows应用编程接口（Application Programming Interface），所有在Win32平台上运行的应用程序都可以调用这些函数，所以通过调用Win32 API 函数可以实现输出文字的特殊显示操作。

　　实例要求

　　在窗体的下部有一个按钮，单击按钮后，窗体中间输出一行文字，如：“中国电脑教育报”，输出的文字在窗体的中间顺时针旋转。

　　重要API函数

　　将指定的对象选入给定的设备描述表。

　　function SelectObject(DC:HDC;p2:HGDIOBJ):HGDIOBJ;stdcall;

　　使用LogFont结构创建一种逻辑字体。

　　function CreateFontIndirect(const P1:TLogFont):HFont;stdcall;

　　用当前字体把一个字符串写到指定位置。

　　function TextOut(DC: HDC; X, Y: Integer; Str: PChar; Count: Integer): BOOL; stdcall;

　　从内存中删除一个对象（本文指逻辑字体）。

　　function DeleteObject(p1: HGDIOBJ):

　　BOOL; stdcall;

上一篇： 用Delphi编写打印程序的窍门
下一篇： Delphi中如何实现透明按钮

1 2 下一页

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有