相关推荐

Delphi动态变化的异形窗体

Delphi xe 动态变化的异形窗体,XE 10.3.3 测试通过，无错，逻辑清晰，代码精炼。直接就可以集成在项目中使用，无需更改。

delphi动态获取点击的MenuItem

procedure TForm1.OnClick(Sender: TObject); begin if Sender is TButton then begin if TButton(Sender).Name = ‘button1’ then .. . else if TButton(Sender).Name = ‘button2’ then

delphi 遍历菜单

遍历主菜单及子菜单： 运行结果如下 代码如下 procedure TForm1.Button1Click(Sender: TObject); var i,k:integer; begin memo1.Lines .clear; for i:=0 to mainmenu1.items.count-1 do begin memo1...

Delphi XE2 之 FireMonkey 入门(38) - 控件基础: TPopupMenu、TMenuItem、TMenuBar、TMainMenu

为什么80%的码农都做不了架构师？>>> ...

DELPHI的奇异菜单的编写

Custom Menus, Text, Lines / Delphi 4, 5自定义菜单,文本,线/ Delphi 4, 5Fancy Menus, etc. 奇异菜单,等等Custom Menus, Rotated Text, and Special Lines 自定义菜单,旋转文本,和特殊的线条Before Delphi 4, it was difficult to customize a

用Delphi制作个性化的菜单

google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//<script type="text/javascript"

PB12.5带图标菜单自定义对象

1.新建自定义非可视对象， uo_supermenu。    新建main类型窗口w_popmenu.    新建菜单 m_popmenu。 2.uo_supermenu完整脚本： forward global type uo_supermenu from nonvisualobject end type type rect from structure within uo_

Delphi字符串旋转任意角度

<br />万一的例子<br />//声明: CreateFontIndirect( const p1: TLogFont {字体结构} ): HFONT; {返回新字体指针} //TLogFont 是 tagLOGFONTA 结构的重定义: tagLOGFONTA = packed record lfHeight: Longint; {字体高度} lfWidth: Longint; {字体平均宽度} lfEscapement:

Delphi菜单设计.4

4.菜单栏、工具栏和状态栏 在可视化程序设计中，每个应用程序都包含一个主窗体。主窗体并不仅仅是一个Form窗体，一个完整的应用程序窗体除了Form窗体外，还应包括菜单栏、工具栏和状态栏等相关组件。这三种组件是主程序窗体的重要组成部分，通过这些组件，可以方便地完成各项操作并了解当前程序的运行状态。本章将介绍如何创建菜单栏、工具栏、状态栏。 4.1 菜单栏 通常，菜单可以看作是命令的列表，使...

GetSystemMetrics函数的参数

1、 SM_ARRANGE: 用于说明系统如何安排最小化窗口，根据显示器的不同系统数据可能有所不同。其包含一个起始位置和方向。关于在程序中怎么使用我还没有见个这样的代码。 起始位置可为下列值之一： ARW_BOTTOMLEFT:开始在左下角的屏幕（默认值）。 ARW_BOTTOMRIGHT:开始在右下角的屏幕（相当于ARW_STARTRIGHT）。 ARW_HIDE:在屏幕可见区域隐藏并

用Delphi制作个性化的菜单 (转)

用Delphi制作个性化的菜单 (转)[@more@] XML:namespace prefix = o ns = "urn:schemas-microsoft-com:Office:office" /&gt; 用Del...

Delphi利用Windows GDI实现文字倾斜

　　在Delphi开发环境中，文字的输出效果一般都是头上脚下的"正统"字符，如何输出带有一定倾斜角度的文字以达到特殊的显示效果呢？笔者在制作公章辅助设计软件过程中，通过Windows图形设备接口函数实现了文字呈辐射状分布的功能。　　Windows图形设备接口(Graphics Device Interface)是Windows系统中的图形核心模块，以GDI.EXE形式提供给开发者使用。Window...

delphi 控制打印机字体TLogFont

procedure SetPrintFont(Degrees:Integer);var LogFont : TLogFont ;begin                             with Printer.Canvas do   begin      With LogFont do      begin        lfHeight:=Font.Height;  // set t

DELPHI动态添加多级菜单

Delphi子菜单的加法其实和普通菜单的差不多，只是在要添加子项的TMenuItem的Items里添加新的TMenuItem即可 例如 procedure TForm1.FormCreate(Sender: TObject);var    menu, menusub1, menusub2: TMenuItem;begin    mainmenu1.Items.Clear;     menu ...