1、新建firemonkey 窗体
2、设置窗体的FormStyle属性为popup
或者直接写代码
procedure TForm1.FormCreate(Sender: TObject); begin Self.FormStyle :=TFormStyle.Popup; end;
1、新建firemonkey 窗体
2、设置窗体的FormStyle属性为popup
或者直接写代码
procedure TForm1.FormCreate(Sender: TObject); begin Self.FormStyle :=TFormStyle.Popup; end;
转载于:https://www.cnblogs.com/lovemit/p/7021446.html