Einzelnen Beitrag anzeigen

MisterCP

Registriert seit: 24. Jan 2008
15 Beiträge
 
#1

Zugriff auf Label aus "externer" Unit (neu gefragt

  Alt 21. Jul 2008, 14:28
Hi,

das Thema wurde zwar im Febr. schon mal angefragt, aber aus meiner Sicht haben die antwortenden User den Frager event.nicht richtig verstanden. und daher hoffe ich, daß es vielleicht doch noch eine "schöne Lösung" gibt:

Problemstellung:
- auf der Form frmMain befinden sich zahlreiche Objekte, u.A. Labels und Memos.
- der Ordnung halber werden bestimmte Proceduren, die sich dieser Objekte bedienen in eigene Units ausgelagert, so z.B. alle Routinen für die Sprachumschaltung in eine Unit untLGU oder alles was die anzuzeigenden Werte darstellt in untDraw.

In VB (da komme ich eigentlich her) ist das jetzt ganz einfach, da habe ich aus jedem Modul (unit) zugriff über z.B. frmMain.lblName01.caption .

Die einzelne Übergabe aller Objekte in die Procedur scheidet aus, da ich innerhalb der Procedur mehrere Objekte aus der Form ansprechen will.

Frage:
Wie müßte die RICHTIGE deklaration aussehen wenn ich in der untLGU folgendes machen wollte

procedure ChangeLanguage(objForm: TObject);
objForm.lblName01.caption = getlngString(LngNr, 1004);
objForm.lblDescr01.caption = getlngString(LngNr, 1008);
... usw.

Schon mal im Voraqus vielen Dank für die hoffentlich creativen Lösungsvorschläge.
  Mit Zitat antworten Zitat