uniGUI之新窗口uniForm(19)去除窗體邊框

去除窗體邊框

 

 

 然后 保存，在這里 重命名窗口

 

//主窗口 調用 
//  NewForm2.UniForm1.Show() ;          //非阻塞
  NewForm2.UniForm1.ShowModal();//阻塞

//子窗口 調用
procedure TUniForm2.UniButton1Click(Sender: TObject);
begin

  self.ModalResult := mrok; //將子窗口的返回值  mrok傳回主窗口
  self.Close;   //關閉子窗口
end

//主窗口 調用

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  newform2.UniForm2.ShowModal(
    procedure(Sender: TComponent; Res: Integer)//主窗口接收子窗口傳回的值 Res
    begin
      Case Res of
        mrOk: // 點Ok后執行的語句
          begin
            caption := 'mrOk'
          end;
        mrNo:   // 點No后執行的語句
          begin
            caption := 'mrNo'
          end;
        mrCancel:   // 點Cancel后執行的語句
          begin
            caption := 'Mrcancel'
          end;
      end;
    end
    );

end;

 去除窗體邊框

1.屬性中設置邊框BorderStyle =bsNone

2.ClientEvents-UniEvents事件中寫代碼beforeInit

function window.beforeInit(sender)
{    Ext.apply(    sender,    {      border: false,      baseCls: '',              
shadow: false,      frame: false,        maximizable: false,      resizable: false,   }   );}

 

 

為什么說字太少呢？為什么說字太少呢？為什么說字太少呢？為什么說字太少呢？為什么說字太少呢？為什么說字太少呢？為什么說字太少呢？為什么說字太少呢？為什么說字太少呢？為什么說字太少呢？為什么說字太少呢？為什么說字太少呢？為什么說字太少呢？為什么說字太少呢？為什么說字太少呢？為什么說字太少呢？為什么說字太少呢？