代碼: 選擇全部
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;