FindComponent auch für property ???

[Martin K]

Hi Leute,

kann man irgendwie auf eine property einer Komponente zugreifen, von der man nur jeweils die Strings hat ?

Also so etwas z.B.:

Delphi-Quellcode:

//Zuordnung:
FindComponent('Form1.Caption') := 'Test';

//auslesen:
var s: string;

s := String(FindComponent('Form1.Caption'));

[jim_raynor]

Nein. Du kannst aber GetPropInfo aus der Unit TypInfo Informationen zu einer Published Eigenschaft ermitteln und mit SetStrProp dann ändern.

Such mal im Forum nach RTTI oder den oben genannten Funktionsnamen. Das Objekt selbst, musst du vorher mit FindComponent oder wie auch immer selbst finden.

[Martin K]

Hmm...

Dieser Code wird zwar kompiliert, löst aber eine Exception aus:

Delphi-Quellcode:

GetPropInfo(FindComponent('Form1'),'Caption');

[Die Muhkuh]

Zitat:

Zitat von Martin K

Hmm...

IMHO:

Delphi-Quellcode:

GetPropInfo((FindComponent('Form1') as TForm),'Caption');

[Martin K]

Zitat:

Zitat von Spider

IMHO:

Delphi-Quellcode:

GetPropInfo((FindComponent('Form1') as TForm),'Caption');

Löst auch eine Exception aus... :cry:

[JasonDX]

Zitat:

Zitat von Spider

GetPropInfo((FindComponent('Form1') as TForm),'Caption')[/delphi]

Anders geschrieben:

Delphi-Quellcode:

GetPropInfo((Form1.FindComponent('Form1'){...}

Form1 hat nur unwahrscheinlich eine Komponente, die auch wieder Form1 heisst ;)
da geht das doch besser:

Delphi-Quellcode:

GetPropinfo(Form1, 'Caption');

btw, es waere im Sinne der OOP, auf Form1 zu verzichten, und auf self zurueckzugreifen. Wenn eine aussenstehende Klasse die Eigenschaften setzen soll, so sollte die Instanz per Parameter mitgegeben werden. Aber Form1.Irgendwas zu verwenden.... *uarghs*

greetz
Mike

[Martin K]

Zitat:

Zitat von JasonDX

Delphi-Quellcode:

GetPropInfo((Form1.FindComponent('Form1'){...}

Form1 hat nur unwahrscheinlich eine Komponente, die auch wieder Form1 heisst ;)
da geht das doch besser:

Delphi-Quellcode:

GetPropinfo(Form1, 'Caption');

btw, es waere im Sinne der OOP, auf Form1 zu verzichten, und auf self zurueckzugreifen. Wenn eine aussenstehende Klasse die Eigenschaften setzen soll, so sollte die Instanz per Parameter mitgegeben werden. Aber Form1.Irgendwas zu verwenden.... *uarghs*

greetz
Mike

Ja, das mit Form1 war ja auch nur ein Beispiel.

Es sollte z.B. auch so gehen können:

Delphi-Quellcode:

GetPropInfo(FindComponent('Label1'),'Caption');

[SirThornberry]

kannst du uns auch sagen welche Exception kommt? mir ist es eigentlich neu das Form1.FindComponent das Form1 findet, denn ein Form hat sich nicht selbst in seiner eigenen liste. Man sollte schon sicherstellen ob FindComponent auch was gefunden hat. Und wie bereits erwähnt wäre es auch sinnvoll zu wissen welche Fehlermeldung du bekommst.

[Martin K]

Naja, bei Label1 kommt keine Exception....

Gut, dass mit Form1 habe ich verstanden - daran lag's wohl :wink:

Aber wie bekomme ich jetzt den String (TCaption) von Label1.Caption zurück?

So:

Delphi-Quellcode:

GetPropInfo(FindComponent('Label1'),'Caption').Name

bekomme ich dann logischerweise 'Caption' zurückgeliefert...

[JasonDX]

Zitat:

Zitat von Martin K

Aber wie bekomme ich jetzt den String (TCaption) von Label1.Caption zurück?

hmmmm....
Ein bisschen weiter oben steht geschrieben:

Zitat:

Zitat von jim_raynor

Du kannst aber GetPropInfo aus der Unit TypInfo Informationen zu einer Published Eigenschaft ermitteln und mit SetStrProp dann ändern.

D.h. mit SetStrProp kannst du string-Properties setzen. Jetzt geben wir dem ganzen noch etwas Phantasie dazu und gucken, ob es etwa nicht GetStrProp gibt... tatsaechlich, sie existiert. Und rate mal, was die macht ;)

greetz
Mike