Tôi nên đặt mã để thực hiện một lần sau khi ứng dụng Delphi của tôi đã hoàn thành việc khởi tạo?

Question

Tôi có các chức năng tôi muốn thực hiện sau khi ứng dụng của tôi đã hoàn thành việc khởi tạo và biểu mẫu chính đã được tạo. Tôi đã có mã (gọi nó là ProcedureX) trong các sự kiện OnShow hình thức, nhưng tôi đã chỉ nhận thấy rằng nó đang được gọi hai lần, bởi vì OnShow là bắn hai lần. Nó kích hoạt khi chương trình chính DPR gọi:

Application.CreateForm(TMainForm, MainForm) ; 

như tôi mong đợi. Nhưng sau đó, khi tôi đọc nội dung từ tệp INI bao gồm các biểu mẫu trên màn hình, tôi có cuộc gọi:

MainForm.position := poScreenCenter ; 

Điều này sẽ xuất hiện sự kiện OnShow lần nữa.

Tôi có thể thực hiện cuộc gọi đến ProcedureX ở đâu, chỉ được gọi một lần và cần phải tạo biểu mẫu chính nào trước khi có thể thực thi?

Answer 1

Bạn có thể kiểm tra và đặt cờ khi bạn gọi thủ tục lần đầu tiên. Cũng giống như vậy:

type 
    TForm1 = class(TForm) 
    procedure FormShow(Sender: TObject); 
    private 
    FRunOnce: Boolean; 
    public 
    [...] 

[...] 

procedure TForm1.FormShow(Sender: TObject); 
begin 
    if not FRunOnce then begin 
    FRunOnce := True; 
    ProcedureX; 
    end; 
end; 

Answer 2

Trình tự bình thường thực hiện cho một Form là:

• AfterConstruction: khi biểu mẫu và nó thành phần được tạo ra hoàn toàn với tất cả các tài sản của họ.
• OnShow: bất cứ khi nào mẫu đã sẵn sàng để hiển thị (và, vâng, bất kỳ sự thay đổi gây ra một CM_SHOWINGCHANGED có thể kích hoạt một OnShow)
• Activate: bất cứ khi nào Form mất Focus

Vì vậy, tùy thuộc vào những gì bạn cần trong ProcedureX, AfterConstruction có thể là đủ và chỉ được thực hiện một lần; chỉ cần ghi đè lên nó và thêm ProcedureX sau inherited. Nó sẽ sau OnCreate.

Nếu không, bạn có thể đăng thông báo tùy chỉnh lên Biểu mẫu từ AfterConstruction, nó sẽ được xếp hàng đợi và sẽ xử lý tùy chỉnh của bạn sau khi các thư khác đã được xử lý.

Trong cả hai trường hợp, bạn sẽ không cần thêm Trường boolean.

Answer 3

Nếu mã của bạn chỉ cần chạy một lần cho mỗi lần tạo biểu mẫu (hoặc mỗi ứng dụng và biểu mẫu chỉ được tạo một lần cho mỗi lần chạy ứng dụng), hãy đặt mã trong trình xử lý OnCreate của biểu mẫu. Đó là nơi tự nhiên để nó đi.

Ngày nay (kể từ khi D3 tôi nghĩ) OnCreate kích hoạt vào cuối quá trình xây dựng trong phương pháp AfterConstruction. Chỉ khi bạn đã đặt OldCreateOrder thành True (và nó là False theo mặc định), bạn có thể gặp rắc rối vì điều đó làm cho OnCreate cháy ở cuối constructor Create.

Answer 4

@Sertac,

Thực sự không cần đến trường FRUNOnce; chỉ cần thực hiện OnShow = NIL làm dòng đầu tiên trong phương thức FormShow của bạn.

FYI, Thành ngữ "chạy một lần" - thiết lập trường xử lý sự kiện thành NIL trong dòng đầu tiên của trình xử lý sự kiện - cũng hữu ích cho việc tạo mã và chạy một khi biểu mẫu đã hoàn toàn được khởi tạo.Đặt mã của bạn theo phương thức FormActivate và, như dòng đầu tiên của phương thức, đặt OnActivate = NIL.

Answer 5

@Sertec,

Mã của bạn sẽ không làm việc, hoặc nếu bạn muốn nó chạy cho mỗi sự kiện Bỏ ẩn (bạn đã không đưa vào bất kỳ mã để thiết lập lại các lĩnh vực frunonce).

Vì vậy, phương pháp của bạn sẽ cần phải đặt lại trường đơn sắc và tôi sẽ cần đặt OnShow = FormShow. Cùng một sự khác biệt, ngoại trừ việc bạn cần một trường bổ sung.

Answer 6

Bạn có thể thêm thủ tục vào tệp DPR của mình, sau tệp Application.CreateForm. Đặt tất cả mã bạn cần để khởi tạo trong quy trình đó. Hoạt động tốt nhất khi bạn có nhiều biểu mẫu trong ứng dụng của mình.

Ngoài ra nếu khởi tạo mất rất nhiều, chương trình sẽ hiển thị các biểu mẫu trên màn hình để người dùng biết rằng ứng dụng đang tải.

Ví dụ:

PROGRAM MyProgram; 
begin 
    Application.Initialize; 
    Application.CreateForm(TMyForm, MyForm); 
    MyForm.Show; 

    LateInitialize;  <----------- here 

    Application.Run; 
end.