如何建立一個沒有右上角關閉功能的MessageBox

有關Delphi 的語法, 程式, 等
回覆文章
頭像
tim
文章: 1380
註冊時間: 2008年 11月 26日, 00:49

如何建立一個沒有右上角關閉功能的MessageBox

文章 tim »

其實只要取得到該 MessageDlg 的 form 本體也就可以對其進行操作, 追一下 delphi 的 source code, 可以找到: MessageDlg -> MessageDlgPosHelp -> CreateMessageDialog , 再針對 CreateMessageDialog 來修改一下屬性即可, 另外若要取得 user 按下的按鈕, 則再取得該 form 的 result 即可! 程式碼如下:

代碼: 選擇全部

     
    procedure Tform1.Button2Click(Sender: TObject); 
    begin 
      with CreateMessageDialog('123'#13#10'test test no system munu', mtInformation, [mbOK, mbCancel]) do 
      begin 
        BorderIcons := BorderIcons -[ biSystemMenu ]; 
        try 
          if ShowModal = mrOK then 
          begin 
            // something to do when user click OK!! 
            ShowMessage('ok'); 
          end 
          else 
          begin 
            // something to do when user click Cancel!! 
            ShowMessage('cancel'); 
          end; 
        finally 
          Free; 
        end; 
      end; 
    end; 
多多留言, 整理文章, 把經驗累積下來.....
回覆文章