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 unicode 转 gbk

Delphi 学习使用资源文件 - 字符串资源

Delphi实现抓屏压缩并保存桌面图片

winapi 字符及字符串函数(5): ischaralpha - 是否是个字母

Delphi xe android 判断自己程序是否是前台程序

Delphi 自带大小写转换

Delphi 与360

Delphi 删除字符串重复的符号只保留一个

Delphi 利用 showmessage(syserrormessage(getlasterror));得到不反馈的错误信息

Delphi 动态生成九宫格按钮

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

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