wert "durchreichen" ?

[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 von 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?

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:

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...

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.

[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 von shmia:

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

Siehe TProductButton und TProductButton.StringProperty

[khh]

Zitat von 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.

klingt logisch und gut,

ich danke euch

[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;