Form1调用Unit2类中函数
2015-11-06 14:48
393 查看
Form1有一个button,当Form1.Create时触发Button的OnClick事件,OnClick事件调用Unit2单元中的函数;
unit Unit2; interface uses FMX.Dialogs, FMX.StdCtrls; type TBClick = class private public procedure BClick(Sender: TObject); end; implementation { BClick } procedure TBClick.BClick(Sender: TObject); begin ShowMessage('hello'); end; end.
unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation, FMX.StdCtrls; type TForm2 = class(TForm) Button1: TButton; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation uses Unit3; {$R *.fmx} { TForm2 } procedure TForm2.FormCreate(Sender: TObject); var bclick: TBClick; begin Button1.OnClick := bclick.BClick; Button1.OnClick(Sender); // hello end; end.
相关文章推荐
- poi读取excel
- Struts2-paramsPrepareParamsStack 拦截器栈
- iOS 开发博客汇总
- java应用技术 3(6)
- 第 10 章 菜单和其他资源
- leetcode45 Jump Game II
- 模拟器快捷键操作
- ORACLE简单的存储过程
- ajax原理和XmlHttpRequest对象
- ListView BaseAdapter的用法与性能优化
- 设备查询适配横屏
- Javascript 回调函数
- python-字符串
- 【存储程序】UDFs信息存储在哪里
- java应用技术 3(5)
- 符咒AA4属性转移模块
- 一个新进前端小白实习僧的初次探索
- 深入剖析ConcurrentHashMap(2)
- 在QTableWidget的列头增加Checkbox
- 冯诺依曼体系结构与哈弗体系结构的区别