Bilinmeyen bir component'in method'unu ismi ile kullanmak..

[Glen]

Daha uygun bir baslik bulamadim, pek aciklayici olmadiginin farkindayim.
Soruma gelince..

Ornegin;

Kod: Tümünü seç

TEdit(FindComponent('Edit1')).Text := 'Ahmet';

Seklinde kullanabiliyoruz. Peki...

TComponent(FindComponent('Edit1').('Text')) := 'Ahmet' gibi bir kullanim var mi? veya

TComponent(FindComponent('Combobox1').('Items').('Add') gibilerinden yani salliyorum bunalr zaten calismiyor da..

Nereden cikti bu soru diye sorarsaniz hani propertyler

Kod: Tümünü seç

SetPropValue(xForm, '_degiskenadi', 'Deneme')
SetPropValue(xForm, '_degiskenadi2', 15)

seklnde kullanilabiliyor ya, o bakimdan..

Umarim anlatabilmisimdir, ilginiz icin tesekkür ederim..

[sadettinpolat]

TComponent(FindComponent('Edit1').('Text')) := 'Ahmet' gibi bir kullanim var mi? veya

TComponent(FindComponent('Combobox1').('Items').('Add') gibilerinden yani salliyorum bunalr zaten calismiyor da..

kullanmak istediginiz ozelligin tip zorlamasi yaptiginiz sinifta bulunmasi gerekir.

kullanmak istediginiz ozellik Text , tip zorlamasi yaptiginiz sinif ise TComponent dersek TComponent(FindComponent('Edit1').('Text')) kodu calismayacaktir. cunku Tcomponent sinifinin text ozelligi yoktur. text ozelligi TControl sinifinda tanimlanmistir.
yani
TComponent(FindComponent('Edit1').('Text'))
yerine
TControl(FindComponent('Edit1').('Text')) yazarsaniz -ya da TControl yerine Tcontrolden turemis baska bir sinif- kod calisacaktir.

hani sinifta hangi ozellikler var diye ogrenmek isterseniz delphi helpinden yararlanabilirsiniz.

[Glen]

Cevabiniz icin cok tesekkür ederim birazdan bakacagim help'e

İyi calismalar, kolay gelsin.

[sabanakman]

Kod: Tümünü seç

TEdit(FindComponent('Edit1')).Text := 'Ahmet';

yerine

Kod: Tümünü seç

uses TypInfo;
SetPropValue(FindComponent('Edit1'), 'Text', 'Ahmet');

yazarak yapılabilir fakat, Items (TStrings) gibi sınıf türünden bir özellik olduğundan bu fonksiyonu kullanarak atama yapılabilir mi şu anda net bir cevap veremem.