kiểm tra xem đối tượng được tạo hay không trong delphi

Question

Tôi đang xây dựng một ứng dụng bằng Delphi 7. Tôi đã thêm một nút vào biểu mẫu chính. Trên nút đó, tôi muốn hiển thị một biểu mẫu khác. Tôi đang cố tạo biểu mẫu thứ hai chỉ khi người dùng đã nhấp vào nút đó lần đầu tiên. Nếu người dùng nhấp vào nút đó lần thứ hai thì biểu mẫu đã tạo sẽ được hiển thị. Một đối tượng Form có bất kỳ thuộc tính nào qua đó chúng ta có thể trực tiếp kiểm tra xem nó đã được tạo hay chưa?

Answer 1

if Assigned(Form1) then 
begin 
    //form is created 
end; 

Nhưng nếu mẫu của bạn được khai báo tại địa phương toàn cầu bạn phải chắc chắn rằng nó được khởi tạo nil.

Answer 2

Bạn cần một trường thành viên để giữ tham chiếu đến biểu mẫu. Sau đó kiểm tra xem tham chiếu đó có được gán hay không. Như thế này:

function TMainForm.GetOtherForm: TMyForm; 
begin 
    if not Assigned(FOtherForm) then 
    FOtherForm := TMyForm.Create(Self); 
    Result := FOtherForm; 
end; 

Answer 3

Đã gán (Obj) vẫn có thể trả về True ngay cả sau khi bạn giải phóng, sử dụng "Obj.free". Cách tốt nhất để đảm bảo obj của bạn là miễn phí, CHO SỬ DỤNG Đã giao (obj) đang sử dụng "FreeAndNil (Obj)"

Answer 4

Đôi khi biểu mẫu đã được miễn phí nhưng không phải là không. Trong trường hợp này, việc kiểm tra được giao không phải là quá tốt. Vì vậy, một tùy chọn là để giải phóng biểu mẫu và đặt MyForm: = nil trên biểu mẫu OnClose. tùy chọn khác là sử dụng các proc sau:

function TMyForm.IsFormCreated: bool; 
var i: Integer; 
begin 
    Result := False; 
    for i := 0 to Screen.FormCount - 1 do 
    begin 
    if Screen.Forms[i] is TMyForm then 
    begin 
     Result := True; 
     Break; 
    end; 
    end; 
end;