FindComponent

[rich123]

Hallo zusammen,

Wenn ich eine Komponente auf der gleichen Form liegt benutze ich

Delphi-Quellcode:

TEdit(FindComponent('Edit'+IntToStr(varzaehler))).Text := 'muh';

Wenn die Komponente aber auf einer anderen Form liegt, habe ich ein Problem:

Delphi-Quellcode:

TEdit(FindComponent('Form2.Edit'+IntToStr(varzaehler))).Text := 'muh';

funktioniert leider nicht.

Wie muss ich das machen?

Danke

[Fussball-Robby]

Ich habe gerade kein Delphi zur Hand, aber es müsste so gehen:

Delphi-Quellcode:

TEdit(Form2.FindComponent('Edit'+IntToStr(varzaehler))).Text := 'muh';

[rich123]

jup, funktioniert, danke

[mkinzler]

Aber besser Softcast verwenden:

Delphi-Quellcode:

(Form2.FindComponent('Edit'+IntToStr(varzaehler)) as TEdit).Text := 'muh';

[taaktaak]

Warum besser Softcast? Hab' mir die andere Form angewöhnt, weil kürzer. Ist das gefahrgeneigt?

[mkinzler]

Da da er ungeprüft auf den Speicherbereich zugreift und nicht geprüft wird, ob der Typ stimmt.

[taaktaak]

Na, dann sollte man diese Möglichkeit tatsächlich sehr zurückhaltend verwenden!
Danke!

[Apollonius]

Allerdings würde ich davon ausgehen, dass eine Komponente, deren Name mit 'Edit' beginnt, auch ein TEdit ist.

[mkinzler]

Ich würde von Nichts ausgehen...

[FAlter]

Hi,

es gibt Leute, die benennen ihre Komponenten. Ich zum Beispiel in etwa so:

NameEdit, BirthdayEdit --> z. B. Edit, MaskEdit, SpinEdit (letzteres nehm ich aber eigentlich nicht)
NamesBox, DoItNowBox, WuppdiBox --> ListBox, GroupCox, CheckBox, ...

Wie man sieht, kann man aus dem Namen nicht unbedingt auf die Komponente schließen, aber ich habe keine Lust, in meinem Code "DoItNowCheckBox" auszuschreiben. Das ist mir zu lang. Andererseits sagt mir ein "CheckBox1" im Code rein gar nix. Wasn datt für eine von den 24 CheckBoxen auf dem Form?

Mfg
FAlter

[Apollonius]

Ich möchte hier keine Diskussion vom Zaun brechen, aber normalerweise sind meine Lösungen auf das Formular zugeschnitten. Dann weiß ich, welche Komponenten welche Namen haben.

[rich123]

huhu,

wieder frage zur FindComponent...


Hier funktioniert .AddXY nicht, warum??

Delphi-Quellcode:

(Form6.FindComponent('Series'+IntToStr(i)) as TChart).AddXY(1,1,'',clRed);

Gruß

[DeddyH]

Was heißt "funktioniert nicht"? Compilerfehler oder tut sich zur Laufzeit nichts?

[rich123]

Undefinierter Bezeichner AddXY.

Funktioniert aber ohne FindComponent einwandfrei

[DeddyH]

Ich habe hier gerade nur Delphi 5 zur Hand, da hat das TChart keine Methode "AddXY". Daher kann ich das im Moment nicht nachvollziehen.

[rich123]

ich habe was gefunden, dass es mit TLineSeries funktionieren sollte aber dann kommt:

Undefinierter Bezeichner : TLineSeries

Gruß

[DeddyH]

Weiß ich jetzt nicht, aber ein Test mit

Delphi-Quellcode:

(Form1.FindComponent('Chart' + Inttostr(1)) as TChart).AllowZoom := true;

war erfolgreich.

[rich123]

jup, aber in welchem Objekt ist dann AddXY?

[DeddyH]

Laut meiner Hilfe in TChartSeries.

[rich123]

Super Danke, habs!!

Gruß