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 用idhttp打开网页或下载文件时如何显示进度

Delphi 控制台应用程序 hello world

Delphi 修改webbrowser的内容

Delphi的常用条件编译指令

Delphi firemonkey处理图形的方式与vcl处理图形的方式大不相同

Delphi webbrowser不能复制粘贴问题的解决办法

Delphi vcl 模式下和firemonkey 模式下的字符串

Delphi setprivilege 提权代码

createremotethread远程注入例子

Delphi 创建大窗口

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

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