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