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 如何从一张图片中裁剪一部分距形图片另存为文件（使用canvas.copyrect）

Delphi 中string字符串转换byte[]字节数组

Delphi 2009 之 tstringbuilder 类[6]: equals

Delphi在手机桌面图标上显示数字

Delphi 根据分割符只取最后的值

Delphi xe3里判断网络是否连接成功

Delphi中quotedstr介绍及使用

Delphi隐藏进程

Delphi 网络时间校对

Delphi winapi: inflaterect - 改变矩形大小

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

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