Turkish
English
Chinese
Projedeki formları tespit etmek
06/22/2007, Yazar: Özgür Koca, Kategori: Delphi
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;
