如何建立一個沒有右上角關閉功能的MessageBox
發表於 : 2008年 11月 28日, 12:26
其實只要取得到該 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;