Delphi XE2 之 FireMonkey 入门(4) - 控件天生可做容器
2024-08-27 11:14:59
1、新建 FM(HD) 工程, 先添加 TLine(默认名称是 Line1);
2、在 Line1 选择状态下添加 Button1;
3、取消选择后添加 Button2
此时, Button1.Parent 是 Line1; Button2.Parent 是窗体.
unit Unit1; interface uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Objects; type
TForm1 = class(TForm)
Line1: TLine;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
end; var
Form1: TForm1; implementation {$R *.fmx} procedure TForm1.FormCreate(Sender: TObject);
begin
Button2.OnClick := Button1.OnClick; { TLine }
end; procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := TButton(Sender).Parent.ClassName; { TForm1; 现在的窗体没有 Text 属性了 }
Line1.Position.X := Line1.Position.X + ; { Btuuon1 会随同移动 }
end; end.
最新文章
- 【Win 10应用开发】认识一下UAP项目
- spring 笔记1: mvn 中Controller方法的参数不能是嵌套类(内部类)。
- iOS 中实现功能引导页面
- Python学习笔记——文件
- 深入理解Java String#intern() 内存模型
- poj 2311 Cutting Game 博弈论
- Learn Vim
- SVN更改用户名和密码
- UIImagePickerController拍照与摄像(转)
- 焦点轮播图——myfocus焦点图库
- mysql的账户失效,之前的密码无法登录
- Multilingual App Toolkit v2.2 release
- Asp.Net WebAPI 中Cookie 获取操作方式
- android后台截屏实现(1)--源码编译
- Event Sourcing
- APP请求服务器数据-HttpUrlConnection
- postgresql,封装数据库语句时,查询报错。
- jquery 一键复制文本到剪切板
- 从零开始学安全(三十)●使用sqlmap对网站一步步渗透
- ffmpeg h264 encdoer 速度对比