摘要： 1、新建 FM(HD) 工程, 先添加 TLine(默认名称是 Line1);2、在 Line1 选择状态下添加 Button1;3、取消选择后添加 Button2此时, Button1.Parent 是 Line1; Button2.Parent 是窗体.unit Unit1;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Objects;type TForm1 = c... 阅读全文

摘要： 把 FireMonkey 简称为 FM 吧. FM 的窗体继续使用 Left、Top 属性, 但更多控件不是了.//FM 控件的位置控制不再是 Left、Top, 取而代之的是 Position 属性procedure TForm1.Button1Click(Sender: TObject);begin Rectangle1.Position.X := Rectangle1.Position.X + 10; Rectangle1.Position.Y := Rectangle1.Position.Y + 10;end;//TPosition 是类procedure TForm1.Butto.. 阅读全文

摘要： FireMonkey 的控件都是自己绘制的(而不是基于系统组件), 我想它们应该是基于一些基本图形; 就从基本图形开始吧.FMX.Objects 单元给出的类:TShape //基本图形的基类TLineTRectangleTRoundRectTCalloutRectangleTEllipseTCircleTPieTArcTPathTTextTImageTPaintBoxTSelectionTSelectionPoint添加一个 TRectangle, 先纵观一下它的可用功能:{ TRectangle } public constructor Create(AOwner: TCompon... 阅读全文

摘要： Delphi XE2 的 FireMonkey 是跨平台的, 暂时只准备看看它在 Windows 下(我是 32 位 Win7)的应用情况.很新的东西, 相信有了它, 以后的界面将会更灵活、漂亮, 也会淘汰掉诸多皮肤、透明、图像等第三方组件, 但不知和 Win8 的 WinRT 有无关联.为了它, Delphi XE2 的诸多单元加了前缀, 诸如:Bde、Data、Datasnap、FMX、IB、Macapi、Posix、Soap、System、System.Bindings、System.Generics、System.Internal、System.Mac、System.Win、Vcl、W 阅读全文

摘要： 今天是 Delphi XE2 发布的日子, 心烦意乱了一天; 因为好想回来学习, 无奈手头还是很多事情...今天有朋友来信要 WinApi 电子书, 我看了下我的小仓库, 找了 9 本(旧了点, 平时大都直接查 msdn, 很少用到了), 传到 115 盘上了:http://115.com/file/aqkrukux#Windows_API.rar 阅读全文

摘要： uses GdiPlus;procedure TForm1.Button1Click(Sender: TObject);var img: IGPImage; bit: IGPBitmap; g: IGPGraphics;begin img := TGPImage.Create('c:\temp\01.png'); bit := TGPBitmap.Create(img.Width, img.Height, PixelFormat1bppIndexed); g := TGPGraphics.Create(bit); g.DrawImage(img, 0, 0, img.Width 阅读全文

摘要： 在空白窗体上添加 PopupMenu1, 并添加几个测试用的菜单项, 分别命名为: m1、m2、m3、mCn、mBig、mEn; 激活 mCn 的 OnClick 事件和窗体的 OnCreate 事件.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus;type TForm1 = class(TForm) PopupMenu1: TPopupMenu; m1: TMenuItem; m2: TMen 阅读全文

摘要： unit DirTreeView;interfaceuses SysUtils, Classes, Controls, Forms, ComCtrls;type TDirTreeView = class(TTreeView) private FRootPath: string; FExt: string; FFileName: string; protected procedure Collapse(Node: TTreeNode); override; procedure Expand(Node: TTreeNode); override; procedure Change(Node: TT 阅读全文

摘要： procedure SplitCommaCross(aList: TStrings); procedure SPlitCross(aList: TStrings); var LList: TStrings; a,b: Integer; i: Integer; begin if Pos('-', aList.Text) 阅读全文

摘要： //不少鼠标与键盘事件用到了集合参数: Shift: TShiftState;TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble, ssTouch, ssPen);{判断是否按下了 Ctrl 键: 方法一}procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin Text := ''; if ssCtrl in Shift then Text := 阅读全文