Aufrufendes Objekt ermitteln

[stark]

Hallo,

in Unit1 binde ich mit "uses Unit2" Unit2 ein. Unit1 beinhaltet eine GUI auf eine Komponente dieser GUI will ich in Unit2 zugreifen. Da ich aber den Verweis auf Unit1 in Unit2 nicht fest implementieren möchte, muss ich wissen wie das object bzw. unit heißt welches unit2 aufruft. da unit2 nur eine ansammlung an funktionen und proceduren ist und keine klasse. kann ich auch keinen konstruktor basteln, davon abgesehen das mich konstruktoren bei delphi eher in die klappse bringen als voran.

unit1

uses unit2
...


unit2

...

test := unit1.form1.image; <---sowas in der art... aber das funzt nicht


könnt ihr mir da helfen?

[mkinzler]

form1.image;

[stark]

Zitat von mkinzler:

form1.image;

danke, aber genau das will ich vermeiden. denn dann habe ich form1 hardcodiert und was ist wenn ich mein unit2 in einem anderen programm nutzen möchte und dann ist es form2 oder so?

[mkinzler]

Dann übergib doch eine Referenz als Parameter

[stark]

Zitat von mkinzler:

Dann übergib doch eine Referenz als Parameter

hmmm... du meinst so eine art init-procedure schreiben? ich brauche den verweis auf den aufrufer nur um an die adresse von 2 image-komponenten zu kommen. da ich ein quell und ein ziel bild habe. und die abwechselnd ein- und ausblende. das unsichtbare image ist zielbild und das sichtbare quellbild. das ändert sich aber mit jedem aufruf. daher weiß ich nicht ob eine referenz funzt. also so wie ich es probiert habe klappt das nicht.

[mkinzler]

Ich meinte so

statt
procedure Proc1( Var1...); procedure Proc1( form: TForm; var1 ...)

[stark]

Zitat von mkinzler:

Ich meinte so

statt
procedure Proc1( Var1...); procedure Proc1( form: TForm; var1 ...)

hmm okay. wenn es keine elegantere lösung gibt, dann muss ich wieder mit einer init-methode arbeiten.

danke

[mkinzler]

Verwende OOP, dann hast du ja self

[stark]

Zitat von mkinzler:

Verwende OOP, dann hast du ja self

lohnt nicht da es eine methoden-sammlung ist. außerdem ist der konstruktor bei delphi sehr bescheiden implementiert. das hat mich schon 2 wochen gekostet und dann habe ich es raus geschmissen

[mkinzler]

Zitat:

außerdem ist der konstruktor bei delphi sehr bescheiden implementiert.

Wie meinst du das?