Program projede yer alan formları çalışma anında tespit etmek ve onlara erişmeyi gösteren deneysel bir çalışma. Application.ComponentCount özelliği projede yer alan tüm nesnelerin sayısını verir. Application.Compnents dizisi ise bu nesnelerin veri yapısına işaret eden Tcomponent sınıfını içerir. Projedeki tüm nesneler taranarak is işleci ile TForm sınıfından olup olmadığına bakılır. as işleci ise dinamik olarak erişilen component’in istenilen sınıf gibi yorumlatılması için kullanılıyor.


procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
for i := 0 to Application.ComponentCount -1 do
begin
if (Application.Components[i] is TForm) then
Memo1.Lines.Add(
(Application.Components[i] as TForm).Caption
);
end;
end;

CEVAP VER

This site uses Akismet to reduce spam. Learn how your comment data is processed.