wert "durchreichen" ?

[khh]

hallo zusammen,
ich habe eine Form mit einem Eingabefeld Tedit.

Auf dem Form befindet sich auch eine Scollbox mit diversen Buttons. (Artikelgruppen)
Beim Klick auf einen dieser Buttons wird (vom Artikelgruppenbutton) eine weitere Scollbox mit weiteren Buttons (Artikel) erzeugt und auf dem Form angezeigt.
Beim Klick auf einen dieser Artikel-Buttons braucht dieser Artikel-Button den Wert der in besagtem Tedit steht um diesen in eine DB-tabelle einzutragen.
Ohne Zirkelbezug muss ich den Wert durch alle übergelagerten Instanzen( also Scollbox, Button, scollbox) durchreichen um ihn in dem Button zur Verfügung zu haben, oder gibts noch ne andere Möglichkeit?

Wie gesagt, Zirkelbezug möchte ich, wenn möglich vermeiden.

danke für eure ideen
Gruss KHH

[shmia]

Zitat:

Zitat von khh (Beitrag 1095971)

... muss ich den Wert durch alle übergelagerten Instanzen( also Scollbox, Button, scollbox) durchreichen ...

Heisst das, dass du Ableitungen von TScrollbox und TButton in deinem Programm hast?

[Deep-Sea]

Du hast also nur eine einzige Form? Wieso greifst du dann nicht einfach auf das Edit zu? :gruebel:

[khh]

Zitat:

Zitat von shmia (Beitrag 1095977)

Zitat:

Zitat von khh (Beitrag 1095971)

... muss ich den Wert durch alle übergelagerten Instanzen( also Scollbox, Button, scollbox) durchreichen ...

Heisst das, dass du Ableitungen von TScrollbox und TButton in deinem Programm hast?

richtig,
und Tbutton erzeugt beim Klick eine weitere Scollbox mit weiteren Buttons.
Diese Buttons benötigen den Wert aus dem TEdit.

[khh]

Zitat:

Zitat von Deep-Sea (Beitrag 1095978)

Du hast also nur eine einzige Form? Wieso greifst du dann nicht einfach auf das Edit zu? :gruebel:

wie?

wie bekomme ich den Wert an den Button übergeben, von dem die Form ja gar nix weis :-(

[shmia]

Ich habe nach einer Ableitung gefragt; anscheinend reden wir aneinander vorbei:
Das ist eine (relativ sinnfreie) Ableitung von TButton:

Delphi-Quellcode:

type
  TMySpezialButton = class(TButton)
  ...
  public
    property ArtkelNr:string ...;
  end;

Verwendest du also abgeleitete Controls?

[khh]

Zitat:

Zitat von shmia (Beitrag 1095983)

Ich habe nach einer Ableitung gefragt; anscheinend reden wir aneinander vorbei:
Das ist eine (relativ sinnfreie) Ableitung von TButton:

Delphi-Quellcode:

type
  TMySpezialButton = class(TButton)
  ...
  public
    property ArtkelNr:string ...;
  end;

Verwendest du also abgeleitete Controls?

ja, genau so.
Dieser MySpezialbutton erzeugt eine Scollbox mit MyspezialArtikelButtons, die beim Klick eben jenen Wert aus dem TEdit benötigen.

[Deep-Sea]

Das ist mir gerade zu verwirrend ...
Ein Button erzeugt Controls, von denen er nicht der Parent ist? (Kann er ja auch nicht.)
Wer ist denn nun der Owner dieser Controls, wer der Parent?

[khh]

Zitat:

Zitat von Deep-Sea (Beitrag 1095989)

Das ist mir gerade zu verwirrend ...
Ein Button erzeugt Controls, von denen er nicht der Parent ist? (Kann er ja auch nicht.)
Wer ist denn nun der Owner dieser Controls, wer der Parent?

Parent der Scrollboxen ist jeweils das Form.
parent der Buttons die zugehörende Scrollbox.

[Bbommel]

Wenn das Edit "Edit1" hieße, das Form "Form1" bzw. "TForm1" und der neue Button "ButtonNeu" (ja, verdammt kreativ, ich weiß), dann müsstest du doch von dem neuen Button aus so dorthin kommen:

Delphi-Quellcode:

TForm1(ButtonNeu.parent.parent).Edit1.Text

Mit dem ersten Parent bist du bei der Scrollbox, von da aus mit dessen Parent beim Form1 und dort findest du ja dann deine Edit-Komponente wieder.

Bis denn
Bommel