我希望从我的应用程序中打开一个对话框,在某些情况下,它应该立即关闭(在显示短消息后)。
我尝试了以下方法:
procedure TForm2.FormActivate(Sender: TObject);
begin
if SomeCondition then
begin
ShowMessage('You can''t use this dialog right now.');
close;
modalresult := mrCancel;
end;
end;
但对话框仍然保持开启状态。我也尝试将代码放在OnShow事件中,但结果相同。
为什么这不起作用?