Form içindeki bileşenlerin listesi

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Bay_Y
Üye
Mesajlar: 116
Kayıt: 10 Mar 2014 11:12
Konum: İstanbul

Form içindeki bileşenlerin listesi

Mesaj gönderen Bay_Y »

Form içinde kullanılan edit , label , combobox gibi kullanılan tüm bileşenlerin listesini görebileceğim bir kod a ihtiyacım var daha doğrusu böyle birşey yapılabilir mi ?
Teşekkürler.
mehmetantalya
Üye
Mesajlar: 189
Kayıt: 30 Eyl 2013 10:17

Re: Form içindeki bileşenlerin listesi

Mesaj gönderen mehmetantalya »

Kod: Tümünü seç

var
  i: Integer;
begin
 for i := 0 to ComponentCount-1 do
   if (Components[i] is TComponent) and not (Components[i] is TControl) then
    Memo1.Lines.Add(Components[i].Name);
Bay_Y
Üye
Mesajlar: 116
Kayıt: 10 Mar 2014 11:12
Konum: İstanbul

Re: Form içindeki bileşenlerin listesi

Mesaj gönderen Bay_Y »

Teşekkür ederim
bana lazım olanların dışındakilerin hepsi geldi :)
Mesela burda Edit , Comboboxlar gelmiyor Grid ve gridin içindeki tüm alanlar geliyor

Memo1
cxGridDBTableView3
cxGridDBColumn16
cxGridDBTableView3Column1
cxGridDBColumn17
cxGridDBColumn18
cxGridDBColumn19
cxGridDBTableView3Column6
cxGridDBTableView3Column2
cxGridDBColumn20
cxGridDBColumn21
cxGridDBTableView3Column3
cxGridDBTableView3Column4
cxGridDBTableView3Column5
cxGridDBTableView3Column7
cxGridDBTableView3Column8
cxGridDBTableView3Column9
cxGridDBTableView3Column10
cxGridDBTableView3Column11
cxGridDBTableView3Column12
cxGridDBTableView3Column13
cxGridDBTableView3Column14
cxGridDBTableView3Column15
cxGridDBTableView3Column16
cxGridDBTableView3Column17
cxGridDBTableView3Column18
cxGridDBTableView3Column19
cxGridDBTableView3Column20
cxGridDBTableView3Column21
cxGridDBTableView3Column22
cxGridDBTableView3Column23
cxGridDBTableView3Column24
cxGridDBTableView3Column25
cxGridLevel3
AdvOfficeStatusBarOfficeStyler1
ImageList1
AdvToolBarFantasyStyler1
AdvPanelStyler2
popYENI
MenuItem1
MenuItem2
MenuItem3

aslında bunları değilde diğerlerini görmem gerekiyor.
mehmetantalya
Üye
Mesajlar: 189
Kayıt: 30 Eyl 2013 10:17

Re: Form içindeki bileşenlerin listesi

Mesaj gönderen mehmetantalya »

Kod: Tümünü seç

var
  i: Integer;
begin
 for i := 0 to ComponentCount-1 do
   if (Components[i] is TComponent)  then
    Memo1.Lines.Add(Components[i].Name);
bunu dener misiniz.
Bay_Y
Üye
Mesajlar: 116
Kayıt: 10 Mar 2014 11:12
Konum: İstanbul

Re: Form içindeki bileşenlerin listesi

Mesaj gönderen Bay_Y »

kusura bakmayın sizi uğraştırıyorum bunda tüm bileşenler geliyor ,
şimdi sorunum şu aslında tüm bileşenler geliyor

if (Components is TcxEditText) diyerek sadece Text olanları alıyoruz
burda bu gelen bileşenlerin .Text özeliğine bir değer atamak istiyorum bu yüzden bunun TcxEdittext e dönüştürülmesi mi gerekiyor ?
mehmetantalya
Üye
Mesajlar: 189
Kayıt: 30 Eyl 2013 10:17

Re: Form içindeki bileşenlerin listesi

Mesaj gönderen mehmetantalya »

Kod: Tümünü seç

  i: Integer;
begin
   for i := 0 to ComponentCount-1 do
   if (Components[i] is TcxEditText)  then
      TcxEditText(Components[i]).Text :='ddd';
bu sekilde denermisiniz.
Bay_Y
Üye
Mesajlar: 116
Kayıt: 10 Mar 2014 11:12
Konum: İstanbul

Re: Form içindeki bileşenlerin listesi

Mesaj gönderen Bay_Y »

Çok Teşekkür Ederim.
mehmetantalya
Üye
Mesajlar: 189
Kayıt: 30 Eyl 2013 10:17

Re: Form içindeki bileşenlerin listesi

Mesaj gönderen mehmetantalya »

rica ederim
Cevapla