Delphi FMX自定义对话框样式，多屏幕布局

本文整理自网络，侵删。

 
 procedure TfrmDlg.Image1Click(Sender: TObject);
begin
  if assigned(fOnCrossClick) then
    fOnCrossClick(self);
  self.LayoutDlg.Parent := self;
end;
 
procedure TfrmDlg.Image1MouseEnter(Sender: TObject);
begin
  TEllipse(Sender).Opacity:=0.4;
end;
 
procedure TfrmDlg.Image1MouseLeave(Sender: TObject);
begin
TEllipse(Sender).Opacity:=1;
end;
 
procedure TfrmDlg.ShowDlg(aParent: TFMXObject; aClick: TNotifyEvent);
begin
  fOnCrossClick := aClick;
  self.LayoutDlg.Parent := aParent;
end;
来源：https://www.amingstudio.com/delphi/668.html
 
 

相关阅读 >>

dekphi qq自动发消息源码

Delphi 调用js脚本

Delphi 获取系统内存状态

Delphi 遍历硬盘所有文件目录

Delphi xe5下安卓开发技巧

Delphi xe 10 跨平台三层数据库应用教程

Delphi removeinvalid截取字符串某个字符前面的字符

Delphi 如何从dll中检索导出函数的列表

Delphi 数组与枚举

Delphi 获取本地计算机上的com口列表

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi FMX自定义对话框样式，多屏幕布局