"Không thể tạo biểu mẫu. Không có biểu mẫu MDI hiện đang hoạt động" lỗi

Question

Tôi có biểu mẫu chính (phụ huynh) MDI và biểu mẫu con MDI. Tôi tạo ra đứa trẻ trong thời gian chạy như thế này:

VAR 
    FrmDereplic: TFrmDereplic; 

procedure TMainFrm.Button2Click(Sender: TObject); 
begin 
FrmDereplic:= TFrmDereplic.Create(MainFrm); 
FrmDereplic.Show; 
end; 

bước để sao chép các lỗi:
tôi bắt đầu ứng dụng, tôi nhấn vào nút để tạo ra đứa trẻ, tôi nhấn nút 'x' trên chính (mẹ) để đóng ứng dụng và tôi nhận được lỗi "Không thể tạo biểu mẫu. Hiện không có biểu mẫu MDI nào đang hoạt động".

Dòng mà trên đó các lỗi xuất hiện ở dạng con:

procedure TFrmDereplic.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
Action:= caFree; 
end; 

procedure TFrmDereplic.FormDestroy(Sender: TObject); 
VAR MyIniFile: TCubicIniFile; 
begin 
MyIniFile:= TCubicIniFile.Create(AppINIFile); 
TRY 
    with MyIniFile DO 
    begin 
    if WindowState<> wsMaximized then 
    begin 
    // save form's screen pos 
    ... 
    end; 
    WriteInteger ('Dereplicator', 'fltExtensions', fltExtensions.ItemIndex); <----- HERE 
FINALLY 
    FreeAndNil(MyIniFile); 
END; 
end; 

tôi tiết kiệm rất nhiều tính hình thức (và đặc tính điều khiển khác) đến tập tin INI. Nhưng nó chỉ thất bại khi tôi cố gắng tiết kiệm fltExtensions.ItemIndex (là một TFilterComboBox). Nếu tôi bình luận rằng dòng nó hoạt động hoàn hảo.

Bất kỳ ý tưởng nào tại sao nó cố gắng tạo biểu mẫu khi tôi thực sự đóng ứng dụng ?????????

Answer 1

Tôi xem một số trang web và chỉ tìm thấy sự cố. Có vẻ như tốt hơn nếu Chủ sở hữu là Ứng dụng, không phải là biểu mẫu chính. Remy Lebeau gợi ý rằng vấn đề thực sự là trong OnDestroy của mẫu trẻ em. Không có xử lý hợp lệ cho cửa sổ chứa bộ lọc thì OnDestroy được gọi. Vì vậy, việc thay đổi thứ tự hủy diệt tạo cơ hội cho TFrmDereplic.OnDestroy thực thi đúng cách.

Vì vậy, đây là giải pháp:

SOLUTION (S)

FrmDereplic:= TFrmDereplic.Create(Application);

hoặc

Do not save form's properties in OnDestroy

thứ hai đòi hỏi vài dòng thêm mã như OnClose thậm chí là không phải lúc nào cũng được gọi. này được chiết xuất từ ​​Delphi TRỢ GIÚP:

Note: When the application shuts down, the main form receives an OnClose event, but any child forms do not receive the OnClose event.

Nếu bạn sử dụng Application.Terminate, sau đó onCloseQuery và onClose sẽ không được gọi. Tương tự cho Halt (nhưng ... đây là cách quá cực đoan, phải không?).

Answer 2

Nếu mã mà bạn cung cấp trong câu hỏi của bạn là một thực tế sau đó tôi đoán có sai số trong dòng này:

FrmDereplic:= TFrmDereplic.Create(TMainFrm); 

Tôi không bao giờ cố gắng này và tôi không chắc chắn nếu trình biên dịch thực sự mua nó (có thể 't kiểm tra nó ngay bây giờ), nhưng bạn đang cố gắng thiết lập một lớp làm chủ sở hữu của biểu mẫu con MDI. Thay vì đó, bạn nên làm một trong hai

FrmDereplic:= TFrmDereplic.Create(Application); 

hoặc

FrmDereplic:= TFrmDereplic.Create(self); 

Tùy chọn đầu tiên đặt ứng dụng là chủ sở hữu của form con MDI, trong khi cái thứ hai đặt ra thể hiện của hình thức chính MDI là chủ sở hữu .

Hy vọng điều đó sẽ hữu ích.:-)

Answer 3

Lỗi xảy ra khi đọc thuộc tính fltExtensions.ItemIndex vì yêu cầu fltExtensions để có HWND, yêu cầu biểu mẫu TFrmDereplic cha mẹ để có HWND, yêu cầu MainForm của dự án phải có HWND. Nhưng ứng dụng đang ở trạng thái tắt máy, và MainForm không thể cấp phát HWND của nó nữa, vì vậy TFrmDereplic tăng một ngoại lệ khi nó không thể có được HWND cho chính nó.

Lưu dữ liệu INI của bạn trong sự kiện OnDestroy của biểu mẫu quá muộn. Bạn cần thay đổi sự kiện OnClose.