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
 
 

相关阅读 >>

Delphi实现webservice带身份认证的数据传输

Delphi 提取标签之间的字符串

Delphi 根据窗口类判断程序是否运行

Delphi firemonkey应用程序取得控制的位置(坐标)的话

Delphi idftp

Delphi 一行一行读取txt文件

windows关机函数exitwindowsex使用大全（适用windows所有操作平台）

Delphi 双击listbox1内容，数据插入到memo1/synedit1鼠标指定位置

Delphi 递归算法遍历文件

Delphi 模仿qq截图

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

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