Rausfinden welches Object die Prcedure aufgerufen hat

[ThE_-_BliZZarD]

Wahrscheinlich ein ganz simples Problem, aber ich find es trotzdem nicht raus..^^
Ich habe sehr viele Eingabefelder (TEdit), die alle bei OnChange() eine Procedure aufrufen.. Also ALLE die SELBE.

Nun würde ich gerne in dieser Procedure rausfinden, welches Element mich da grade aufgreufen hat...und am besten noch darauf zugreifen..

Der genialen Delphi7-Beipack-Hilfe habe ich leider nichts nützliches entnehmen können, auch CodeLib und Google waren nicht von Nutzen..

Vielen Dank

[mkinzler]

Im Parameter Sender

[Neutral General]

Hi,

Das OnChange Ereignis hat nen Parameter namens "Sender"...
Das ist das Objekt das das Ereignis ausgelöst hat.

Zugreifen kannst du dann mithilfe von:

Delphi-Quellcode:

(Sender as TEdit).Text // oder andere Eigenschaften
TEdit(Sender).Text

Gruß
Neutral General

[fLaSh11]

Zitat von Neutral General:

(Sender as TEdit).Text // oder andere Eigenschaften

braucht man da eig. kein FindComponent davor?

[mkinzler]

Zitat:

braucht man da eig. kein FindComponent davor?

Nein warum auch. Es wird der Methode ja ne Referenz auf das Objekt als Parameter geliefert

[ThE_-_BliZZarD]

Cool^^

Danke Leute.. Ein paar Pro's am Start ersetzen den Suizid xD


Soo.. aber noch eine Frage: ich würde gerne vollgendes machen:

ich hab nen Record und der hat Unterelemente, die genauso heißen wie mein Edit,so z.B:

Edit.Name = edt_geschlecht

Record.geschlecht

nun würde ich gerne mittels des Sender's auf dem Kram so was machen:

Record.(edt_xxx - edt_) := (Sender as TEdit).Text;

in PHP gibts eine Funktion mehr der man einen String als Quellcode ausführen kann.. Gibts so gecheate auch in Delphi?

[mkinzler]

So direkt nicht. Man könnte das durch die RTTI machen. Es wäre aber einfacher das z.B. durch ein case-Konstrukt zu lösen.

[ThE_-_BliZZarD]

hmm na gut dann halt mal wieder sinnloses Quelltext-produzieren

danke

[Luckie]

Zitat von ThE_-_BliZZarD:

Soo.. aber noch eine Frage: ich würde gerne vollgendes machen:

Und aus genau diesem Grund schliesse ich hier. Bitte mach für eine neue Frage auch einen neuen Thread auf. Danke.