Edit Два Form2 от Form1

Question

Эй, ребята, у меня есть два Form2 от Form1, поэтому я хотел бы отредактировать два Form2-х я могу это сделать с C++

 for each(Form^mForm in Application::OpenForms) 
     { 

      myForm2= dynamic_cast<Form2^>(mForm); 
      if(myForm2 != nullptr) 
       //do something with Form2 
     } 

любой идеи, как превратить его в Дельфы кода?

Answer 1

Как это:

var 
    theForm: TForm; 
    myForm2: Form2; 
begin 
    for theForm in Screen.Forms do 
    begin 
    if theForm is Form2 then 
    begin 
     myForm2 := Form2(theForm); 
     //do something with myForm2... 
    end; 
    end; 
end; 

Или это:

var 
    theForm: TForm; 
    myForm2: Form2; 
    I: Integer; 
begin 
    for I := 0 to Screen.Forms.Count-1 do 
    begin 
    theForm := Screen.Forms[I]; 
    if theForm is Form2 then 
    begin 
    myForm2 := Form2(theForm); 
     //do something with myForm2... 
    end; 
    end; 
end; 

В зависимости от версии Delphi.