Runtime Oluşturduğum Bütün Nesneleri Nasıl Listelerim

[pro_imaj]

Merhaba;

Runtime'da Edit label vb nesneler oluşturuyorum. Form'u kapatırken hangi nesneleri oluşturmuşum bunları listeletmek istiyorum, bunu nasıl yapabilirim.

Örneğin.
Formda 2 Edit 1 Button oluşturmuşsam.

Edit1
Edit2
Button1

Şeklinde bir bilgiye ihtiyacım var.

Saygılarımla
Teşekkürler.

[freeman35]

.Components[x] şeklinde ulaşabilirsin. Yada bunların handle ları nerde? Edit1 diye bir değişken varsa nil yada assigned() ile kontrol edebilirsin, yada ben Tlist kullanmayı tercih ederim.

[pro_imaj]

Merhaba;
Cevap için teşekkür ederim hocam.

FindComponent fonksiyonunu buldum sanırım burada döngüyle çözülecek gibi. Fakat henüz yoğunlaşamadım. Hata alıyorum (invalid class typeclass)

Aşağıdaki şekilde editleri oluşturuyorum.

Kod: Tümünü seç

  E1 := E1 +1;
  with TEdit.Create(Self) as TEdit do
  begin
    Left := LastX;
    Top := LastY;
    Parent := ContainerPanel1;
    Text := 'Edit'+IntToStr(E1);
    Name := Text;
    Draggable.Enabled := True;
    Cursor := crDrag;
    OnEndDrag := AnyComponentsEndDrag;

Kullanıcının kaç edit oluşturduğunu bilmiyorum.

Teşekkürler.
İyi çalışmalar.

[freeman35]

with TEdit.Create(Self) as TEdit do
TEdit create ettiğin class ı tekrar cast etmene gerek yok ki? ayrıca ilk mesajımda yazdığım gibi bunları TList içerisinde topla, daha önce benzer bir soru vardı, daha öncede forumda konuşulmuştu, örnekler olacak. bana senin yaptığın belirsiz gibi geliyor. TList ile tüm kontrol sende olur, istediğine erişip silebilirsin, memoryleak sorunun olmaz vs gibi daha kontrollü olur.
componentcount, components[] senin yönteminde kullanabileceğin function ve property ler.
kolay gele

[mrmarman]

Basit bir önerim olacak.
Doğrusu @freeman35'in bahsettiği gibi her create edilen nesnenin senin kontrolünde olması için bir listede tutulmasıdır.

Alternatif teknik önerim: NAME olarak verdiğin ismi 'Edit' olarak değil de örneğin 'ProEdit', 'ProButton', 'ProLabel' gibi ayrı bir ön takı ile isimlendirirsen; for döngüsünde istediğin listeyi elde edersin. Ya fonksiyon içinde ya da sonradan bunları sınıflarına göre sayarsın

Kod: Tümünü seç

Function Nesneler( Form:TForm; strOnTaki:String ): String;
Var
  i : Integer;
begin
  for i := 0 to Form.ComponentCount-1 do
    if Copy( Form.Components[i].Name, 1, Length(strOnTaki) ) = strOnTaki
      then Result := Result +  Form.Components[i].Name + #13;
end;

Kullanımı :
Tümü için

Kod: Tümünü seç

  ShowMessage( Nesneler( self, 'Pro' ) );

Edit'ler için

Kod: Tümünü seç

  ShowMessage( Nesneler( self, 'ProEdit' ) );

Label'lar için

Kod: Tümünü seç

  ShowMessage( Nesneler( self, 'ProLabel' ) );

[badkursat]

Bu kod işini görür sanırım

Kod: Tümünü seç

procedure TForm1.RefreshTree(ATree : TTreeview);
var
  i: Integer;
  r: TTreeNode;

procedure AddComponent(AObject: TWinControl; ARoot: TTreeNode);
var
  i: Integer;
  n: TTreeNode;
begin
  for i:=0 to AObject.ControlCount-1 do
    begin
      n:=ATree.Items.AddChildObject(ARoot,Format('%s: %s',[AObject.Controls[i].Name,AObject.Controls[i].ClassName]),AObject.Controls[i]);
      if AObject.Controls[i] is TWinControl then
        Begin
          AddComponent(TWinControl(AObject.Controls[i]),n);
        End;
    end;
end;

begin
  ATree.Items.Clear;
  r:=ATree.Items.AddChild(nil,Format('%s: %s',[Self.Name,Self.Classname]));
  AddComponent(Self,r);

  //Componentleride göstermek için
  {for i:=0 to Self.ComponentCount-1 do
    if not(Self.Components[i] is TControl) then
      ATree.Items.AddChildObject(r,Format('%s: %s',[Self.Components[i].Name,Self.Components[i].ClassName]),Self.Components[i]);}

  ATree.FullExpand;

  ATree.Selected:=r;
end;

kullanımı
RefreshTree(Senin Treeview'in)

[mrmarman]

@badkursat kullanıcı tarafından eklenen değil de kendi asıl nesneleri nasıl ayırt etsin arkadaş ?

[thelvaci]

Kapsayıcı nesnelerin içinde; ComponentCount, Components[?]; yada ControlCount, Controls[?] biçiminde döngü ile dönüp istediğinizi elde edebilirsiniz. Maksat sadece sizin runtime sırasında oluşturduğunuz nesneleri elde etmek ise; en basit yol nesneleri oluşturma esnasında ilgili sınıfların Tag propertysine istediğiniz bir değeri vermek ve daha sonra döngüde bu değeri kontrol etmektir.

[SimaWB]

+1 Tag property

[pro_imaj]

Çok değerli cevaplarınız için hepinize ayrı ayrı teşekkür ederim.
Muharrem bey'in örneğindeki şekilde sorunumu çözdüm.

Saygılarımla
İyi çalışmalar.

[mrmarman]

Tag property çok güzel bir state flag enstrumanıdır. Bu gibi statik ayırt edici unsur için harcanmayacak kadar değerlidir. En son düşünülmelidir diye değerlendiriyorum.

Yeri gelir aktif kayıt nosunu koyarsınız ilgili nesne ona göre davranır, yeri gelir işlem durumunu dinamik olarak yine tag üzerinde bir değer ile ifade edersiniz.

Yayın hayatında daha sonra değişmeyecek Statik tanımlamaları nesne adı gibi statik enstrüman kullanmak daha verimlidir bu açıdan da bir bakın.

[pro_imaj]

Merhaba;
konunun devamı olarak; Muharrem bey'in mantığında bir yapı oluşturdum. Oluşturduğum bu Nesneye Mause İle Tıkladığımda NesneName'ini nasıl alırım.

Örneğin Runtime de 2 adet edit oluşturdum. Sonrasında bu editlerden herhangi birine mause ile tıkladığımda Nesne Name'ini (yani hangi edit olduğunu) nasıl alabilirim.

Yardımlarınız için şimdiden teşekkürler.

[thelvaci]

Merhaba;
konunun devamı olarak; Muharrem bey'in mantığında bir yapı oluşturdum. Oluşturduğum bu Nesneye Mause İle Tıkladığımda NesneName'ini nasıl alırım.

Örneğin Runtime de 2 adet edit oluşturdum. Sonrasında bu editlerden herhangi birine mause ile tıkladığımda Nesne Name'ini (yani hangi edit olduğunu) nasıl alabilirim.

Yardımlarınız için şimdiden teşekkürler.

ActiveControl'a bakabilirsiniz yada FindVCLWindow metodunu kullanabilirsiniz.

[pro_imaj]

Söylediğiniz kodları hangi olaya yazmalıyım?

[SimaWB]

Merhaba;
konunun devamı olarak; Muharrem bey'in mantığında bir yapı oluşturdum. Oluşturduğum bu Nesneye Mause İle Tıkladığımda NesneName'ini nasıl alırım.

Örneğin Runtime de 2 adet edit oluşturdum. Sonrasında bu editlerden herhangi birine mause ile tıkladığımda Nesne Name'ini (yani hangi edit olduğunu) nasıl alabilirim.

Yardımlarınız için şimdiden teşekkürler.

Oluşturduğunuz Edit'ler için ortak bir OnClik olayı yazmışsınız diye tahmin ediyorum. OnClick'in tek bir parametresi var: Sender: TObject
Bu parametre hangi Edit tıklandıysa onu size verir ve Edit'in ismi:

Kod: Tümünü seç

TEdit(Sender).Name