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

[stahli]

Ich will auch mal noch zu Missverständnissen beitragen... :wink:

Wenn Du eigene ScrollBoxen verwendest, könntest Du eine Eigenschaft UsesEdit einrichten und der Dein Edit zuweisen:

MyScrollBox := TMyScrollBox.Create(Self);
MyScrollBox.UsesEdit := Edit1;

Innerhalb der Scrollboxereignisse kannst Du dann auf UsesEdit zugreifen.

Alternativ könnte man eine globale Variable nutzen, wenn man mit den Protesten der Profi-Gemeinde leben kann.

[ConnorMcLeod]

Sorry, wenn ich das falsch verstehe, aber meine Idee:
Pseudocode!

Delphi-Quellcode:

procedure GruppenButtonWurdeGeklickt(const AEditText: string);
var
  li: integer;  // Schleifenzaehler
  NewScrollBox: TScrollBox;
begin
  NewScrollBox := CreateProductScrollboxWithButtons;
  for li := 0 to NewScrollBox.ComponentCount-1 do
  begin
    if (NewScrollBox.Components[li] is TProductButton) then
    begin
      TProductButton(NewScrollBox.Components[li]).StringProperty := AEditText;
    end;
  end;
end;

[shmia]

Nur mal so ganz grundsätzlich:
Das Ableiten von Controls (visuelle Komponenten) ist von Ausnahmefällen abgesehen absolut nicht empfehlenswert.
Man kann Objekte in zwei Kategorien einteilen:
* unabhängig von der Anwendung
* spezialisiert auf die Anwendung
Controls (bzw. Komponenten allgemein) sind wie Legosteine; man kann sie unverändert in vielen versch. Projekten einsetzen.
Daneben gibt es aber auch eigene Klassen (sog. Business-Objekte), die ganz speziell auf die Anwendung zugeschnitten sind.

Was hier in deinem Projekt wahrscheinlich fehlt ist eine Artikel-Klasse.
Diese Objekte tragen die Informationen (z.B. Artikelnummer, Beschreibung, DB-Schlüssel, Status,...) und werden zwischen den Formularen ausgetauscht.
Wenn du diese Artikel-Klasse in eine eigene Unit packst, dann kannst du Artikelobjekte problemlos zu versch. Formularen durchreichen.
Neben einer Artikel-Klasse wirst du möglicherweise weitere Klassen benötigen: Artikelliste, Artikelgruppe.

Die einzigen Komponenten, die anwendungsspezifisch abgeleitet werden dürfen sind: TForm und TFrame.

[ConnorMcLeod]

Zitat:

Zitat von shmia (Beitrag 1096021)

Was hier in deinem Projekt wahrscheinlich fehlt ist eine Artikel-Klasse.

Siehe TProductButton und TProductButton.StringProperty ;-)

[khh]

Zitat:

Zitat von shmia (Beitrag 1096021)

Nur mal so ganz grundsätzlich:
Das Ableiten von Controls (visuelle Komponenten) ist von Ausnahmefällen abgesehen absolut nicht empfehlenswert.
Man kann Objekte in zwei Kategorien einteilen:
* unabhängig von der Anwendung
* spezialisiert auf die Anwendung
Controls (bzw. Komponenten allgemein) sind wie Legosteine; man kann sie unverändert in vielen versch. Projekten einsetzen.
Daneben gibt es aber auch eigene Klassen (sog. Business-Objekte), die ganz speziell auf die Anwendung zugeschnitten sind.

Was hier in deinem Projekt wahrscheinlich fehlt ist eine Artikel-Klasse.
Diese Objekte tragen die Informationen (z.B. Artikelnummer, Beschreibung, DB-Schlüssel, Status,...) und werden zwischen den Formularen ausgetauscht.
Wenn du diese Artikel-Klasse in eine eigene Unit packst, dann kannst du Artikelobjekte problemlos zu versch. Formularen durchreichen.
Neben einer Artikel-Klasse wirst du möglicherweise weitere Klassen benötigen: Artikelliste, Artikelgruppe.

Die einzigen Komponenten, die anwendungsspezifisch abgeleitet werden dürfen sind: TForm und TFrame.

klingt logisch und gut,

ich danke euch