Cách kiểm tra xem cửa sổ con có tồn tại không?

Question

Tôi có một biểu mẫu chính (MainForm) và một cửa sổ con MDI (TFormChild). Tôi muốn tạo nhiều biểu mẫu TFormChild, nhưng biểu mẫu đầu tiên phải hoạt động theo một cách nhất định vì vậy tôi cần phát hiện xem có cửa sổ TFormChild đã tồn tại chưa.

tôi sử dụng mã này, nhưng nó không làm việc:

function FindChildWindowByClass(CONST aParent: HWnd; CONST aClass: string): THandle; 
begin 
    Result:= FindWindowEx(aParent, 0, PChar(aClass), NIL); 
end; 

Tôi gọi nó là như thế này:

Found:= FindChildWindowByClass(MainForm.Handle, 'TFormChild')> 0; 

Answer 1

Gọi nó như

Found:= FindChildWindowByClass(MainForm.ClientHandle, 'TFormChild')> 0; 

cửa sổ MDI con là con cái của 'MDICLIENT', ClientHandle tài sản của TCustomFrom nắm cán.

Answer 2

Trong một biểu mẫu, bạn có thể tham khảo các thuộc tính MDIChildCount và MDIChildren.

ví dụ:

var 
    i: integer; 
begin 
    for i:= 0 to MainForm.MDIChildCount-1 do 
    begin 
    if MainForm.MDIChildren[i] is TFormChild then 
    ... 
    end; 
    ... 
end; 

Answer 3

Cách tốt nhất để thực hiện việc này là có biểu mẫu bạn muốn mở thực sự kiểm tra xem nó có tồn tại không. Để làm như vậy, biểu mẫu của bạn phải khai báo một thủ tục lớp. Khai báo như là một thủ tục lớp, proc có thể được gọi bất kể biểu mẫu tồn tại hay không.

Thêm vào phần nào của hình thức của bạn

class procedure OpenCheck; 

thì thủ tục sẽ như thế này

Class procedure TForm1.OpenCheck; 
var 
f: TForm1; 
N: Integer; 
begin 
    F := Nil; 
    With Application.MainForm do 
    begin 
     For N := 0 to MDIChildCount - 1 do 
     begin 
     If MDIChildren[N] is TForm1 then 
      F := MDIChildren[N] as TForm1; 
     end; 
    end; 
    if F = Nil then //we know the form doesn't exist 
     //open the form as the 1st instance/add a new constructor to open as 1st 
    else 
     //open form as subsequent instance/add new constructor to open as subsqt instance 
end; 

Thêm đơn vị Form1 để khoản sử dụng của mdiframe của bạn.

Để mở biểu mẫu, hãy gọi thủ tục lớp học của bạn, lần lượt sẽ gọi hàm tạo của biểu mẫu.

TForm1.OpenCheck; 

Một cảnh báo sử dụng thủ tục lớp học, không truy cập bất kỳ thành phần/thuộc tính nào của biểu mẫu. Vì biểu mẫu không thực sự phải được khởi tạo, việc truy cập chúng sẽ tạo ra một sự vi phạm truy cập/cho đến khi bạn biết F không phải là không. Sau đó, bạn có thể sử dụng F. để truy cập các thành phần/thuộc tính biểu mẫu.