Methoden der übergeordneten Objekt-Instanz

[ore12]

Hallo,

Ich habe eine Objekt-Instanz MyController (vom Typ TController), die
mehrere Einzelobjekte vom Typ TMyAgent erzeugen, in einer Liste
verwalten und steuern soll:

MyController -----> MyAgent1
.......................MyAgent2
.......................MyAgent3

Gibt es einen Weg, mit dem die MyAgent-Objekte ihrerseits public Properties des
MyController-Objektes aufrufen können?

Ich habe schon versucht, der Create-Methode von TMyAgent die
aufrufende/erzeugende Objektinstanz mitzugeben,
etwa so: TMyAgent.Create(TheController: TObject)...geht aber so nicht.

Wäre für Eure Hinweise dankbar

[theo]

Ich habe schon versucht, der Create-Methode von TMyAgent die
aufrufende/erzeugende Objektinstanz mitzugeben,
etwa so: TMyAgent.Create(TheController: TObject)...geht aber so nicht.

Warum nicht?

EDIT: Ach so, löst das dein Problem?

Code: Alles auswählen

type
 
TMyController = class; //forward
 
TMyAgent = class
private
  fController:TMyController;
end;
 
TMyController = class
end;     

[ore12]

Danke theo für den Hinweis,

habe das Problem gelöst, u.a. durch eine Anregung im Posting von Kay vom 14.4.
Ich wollte das ganz allgemein auch für Klassen, die in verschiedenen Units liegen, also ohne Forward-Deklaration, wie Du es vorgeschlagen hast.
Hier für alle, denen es nutzen kann:

Code: Alles auswählen

 
in der "untergeordneten" Klasse
 
TMeineProzedur = procedure of object;
 
TAgent = class(TObject)
                 ....
                 constructor Create(MeineProzedur: TMeineProzedur)
 
und mache den Konstruktor-Aufruf des TAgent-Objektes von der "übergeordneten" Objekt-Instanz:
 
....Create(@self.ProzedurName)
 
die TAgent-Instanz kann dann beliebig ProzedurName ausführen
 

[Maik81SE]

Moin @ll,

ich habe Analog das Ähnliche Problem, bezieht es sich bei mir jedoch nur auf die Übernahme der Farben zw. Debian und Win7.

Kurz erklärt. ich verwende zum Proggen Ubuntu 13.10.
Das Programm, welches ich jetzt in Arbeit habe, soll unter Unix und WIndows laufen... soweit wird alles auch sauber erledigt.
Das einzige, was mich Stört...

Nun schaut es euch mal bitte an...

Farben bei Ubuntu

Ubuntu13-10.jpg (9.74 KiB) 1181 mal betrachtet

Darstellung auf Ubuntu 13.10

Farben bei Win7

Darstellung auf Win7

Bei Allen Systemen handelt es sich um ein 64-Bit System

Der Quellcode für diese Routine schaut wie nachstehend beschrieben aus.

Code: Alles auswählen

procedure TForm2.FormShow(Sender: TObject);
begin
  {$IFDEF WINDOWS}
    TabSheet1.Color := clTeal;
    Caption         := 'Tabsheet1 set with clTeal';
  {$ENDIF}
  {$IFDEV Unix}
    Caption         := 'Sie verwenden ein Debian System. Daher werden Farben nicht extra gesetzt.';
  {$ENDIF}
  PageControl1.ActivePage := TabSheet1;
  PageControl1Change(self);
end;
 

WIe ihr aber auch sehen könnt, werden die Texte richtig übergeben nur die Übernahme der Farben... Naja... No Comment

Wäre Suber, wenn jemand von euch eine Lösung dafür hat und ja ich weiß, ich könnte diese auch gleich zuweisen, aber bin ich der Meinung, das ist Anfänger art.
Sicherlich werd ich nicht das Letzte mal an der Unix / Windows umschaltung hängen. daher würde ich dies gern bei diesem einfachen 08/15 Beispiel Anfangen.

Gruße Maik

[m.fuchs]

ich habe Analog das Ähnliche Problem, bezieht es sich bei mir jedoch nur auf die Übernahme der Farben zw. Debian und Win7.

Was hat dein Problem denn mit dem Ursprungsproblem hier zu tun? Also außer dass die gleiche Programmiersprache genutzt wird.

Dein Farbproblem liegt daran, dass das PageControl von Windows gezeichnet wird. Du müsstest das Zeichnen selber übernehmen, wenn du (unnötigerweise) die Farben verändern willst.