Delphi专题 ·

Delphi FMX自定义对话框样式,多屏幕布局

功能

Delphi Firemonkey使用自定义对话框布局样式

效果

如下图所示
Delphi FMX自定义对话框样式,多屏幕布局 Delphi专题 第1张

主要代码

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;

相关下载

点击下载

参与评论