Delphi - dừng ứng dụng trên biểu mẫu chính tạo

Question

Tình huống là như sau: trên mẫu ứng dụng tạo sự kiện một số điều kiện không được tôn trọng, vì vậy ứng dụng cần phải đóng.

Vâng, đây là thiết kế kém nhưng cách đóng ứng dụng? Sử dụng Application.MainForm.Close tạo ra một AV. Application.Terminate không phải là lựa chọn tốt. Những ý tưởng khác?

Answer 1

Application.Terminate công trình tốt. Tuy nhiên, hãy nhớ rằng việc kết thúc bị trễ, tất cả những điều đó là gửi một tin nhắn WM_QUIT tới hàng đợi tin nhắn của chuỗi cuộc gọi, vì vậy ứng dụng sẽ không thực sự chấm dứt cho đến khi Application.Run() được gọi để bắt đầu xử lý hàng đợi tin nhắn của chuỗi chính. Do đó, bạn có thể thấy màn hình chờ nhấp nháy MainForm trong giây lát trước khi ứng dụng thực sự bị chấm dứt. Nếu bạn muốn tránh điều đó, bạn có thể đặt Application.ShowMainForm tài sản để sai, ví dụ:

procedure TMainForm.FormCreate(Sender: TObject); 
begin 
    if (some condition) then 
    begin 
    Application.ShowMainForm := False; 
    Application.Terminate; 
    end; 
end; 

Tuy nhiên, như những người khác đã nói, một thiết kế tốt hơn là để làm việc kiểm tra trong file DPR của dự án để thay thế và thậm chí không tạo các MainForm ở tất cả nếu cần thiết, ví dụ:

Application.Initialize; 
if not (some condition) then 
begin 
    Application.CreateForm(TMainForm, MainForm); 
    Application.Run; 
end; 

Answer 2

Application.Terminate 

là đủ tốt trừ khi bạn quan tâm để tinh chỉnh thiết kế của mình để kiểm tra các điều kiện này trước khi biểu mẫu được tạo (trong dpr).

Answer 3

Vâng, nếu bạn muốn dính vào thiết kế xấu của bạn, đây là một câu trả lời xấu:

try 
    Application.Terminate 
except 
end;