Eine Komponente auf einen "X" Form Ansprechen?

[Karstadt]

Hallo.

Habe 20 Forms auf jeden diese Form befindet sich eine TMYTABLE komponente.

meine Forms haben folgende namen f_xx (x steht für name).

Nun will ich auf eine X Form die Komponente TMYTABLE (Tabelle) ansprechen.

Wie mache ich das?

Procedure(Formname:String);
begin
TForm(Formname).Tabelle.open;
end;


So funktioniert das nicht! :(

[Hador]

- Ändere bitte mal den Titel (Das was da steht ergibt irgendwie keinen Sinn)
- Nutze bitte die Delphi-Tags

Bei dem was du vorhast könnte dir evtl. FindComponent helfen

Delphi-Quellcode:

(Application.FindComponent('Formular_73') as TXForm).TMyTable.machwas

[JasonDX]

Zitat:

Zitat von Hador

Bei dem was du vorhast könnte dir evtl. FindComponent helfen

Delphi-Quellcode:

(Application.FindComponent('Formular_73') as TXForm).TMyTable.machwas

Na ja, das problem ist ja, dass TXForm unterschiedliche Klassen sind, und ein TForm1 auf TForm2 zu casten geht richtig schief, auch wenn beide ein Tabelle: TMyTable enthalten.

Es gäb 2 Möglichkeiten:
a) Eine ähnliche Variante wie die von Hador:

Delphi-Quellcode:

(f_XX.FindComponent('Tabelle') as TMyTable).Open

oder b) über ein Interface, was eine sauberere Lösung wäre.

greetz
Mike

[Karstadt]

Ich versuche es anders.


Ich habe 20 Formulare. Auf jeden Formular habe ich eine gleichnamige Tabelle (komponente) nun will ich alle Tabelle Refreshen.

Oder Irgendwas anderese mit diese Komponente machen. Was genau ist erstmal egal!

Drei Formulare von 20!

var
f_ap: Tf_ap;
var
f_ag: Tf_ag;
var
f_a: Tf_a;

(Application.FindComponent('Formular_73') as TXForm).TMyTable.machwas

das funktioniert nicht weil ich as TXForm nicht kenne.

PS: Titeltext, ist aus meine sicht richtig!

[JasonDX]

Zitat:

Zitat von Karstadt

(Application.FindComponent('Formular_73') as TXForm).TMyTable.machwas

das funktioniert nicht weil ich as TXForm nicht kenne.

Delphi-Quellcode:

(f_XX.FindComponent('Tabelle') as TMyTable).Open

Sollte dann Funktionieren. Es ist allerdings nicht die sauberste Lösung, deswegen würd ich eher den Weg über ein Interface wählen.

Ich habs mal mit nem Button gemacht, es sollte nicht zu schwer sein das anzupassen:

Delphi-Quellcode:

type
  IButtonInterface = interface(IInterface)
    function GetButton: TButton;
    property b: TButton read GetButton;
  end;

  TForm1 = class(TForm, IButtonInterface)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    function GetButton: TButton;
  public
    property b: TButton read GetButton;
  end;

var
  Form1: TForm1;

implementation

procedure JustATest;
begin
  ShowMessage(IButtonInterface(Form1).b.Caption);
end;

{ TForm1 }

function TForm1.GetButton: TButton;
begin
  result := Button1;
end;

Zitat:

Zitat von Karstadt

PS: Titeltext, ist aus meine sicht richtig!

Darüber ließe sich streiten... Über das verwenden von Delphi- und Quotetags nicht wirklich. Dat hier sollte als Bedienungsanleitung dafür reichen ;)

greetz
Mike

[Karstadt]

ich werde euch mein Geheimniss lüften.... :)

Das will ich nicht 20 mal eingeben!

Delphi-Quellcode:

  IF Formularname = 'f_ag' then
  begin
    with f_ag.Tabelle do
    begin
      Close;
      Sql := Sqlabfrage;
      open;
    end;
  end;
  
IF Formularname = 'f_ap' then
  begin
    with f_ap.Tabelle do
    begin
      Close;
      Sql := Sqlabfrage;
      open;
    end;
  end;
  
IF Formularname = 'f_a' then
  begin
    with f_a.Tabelle do
    begin
      Close;
      Sql := Sqlabfrage;
      open;
    end;
  end;

sonder nur einmal!

[Hador]

Zitat:

Zitat von JasonDX

Na ja, das problem ist ja, dass TXForm unterschiedliche Klassen sind

Ich hätte erwartet, das 20 Formulare mit jeweils einer Tabelle drauf die selbe Klasse sind, bzw. zumindest von der selben basisklasse abgeleitet sind.

Zitat:

Zitat von Karstadt

PS: Titeltext, ist aus meine sicht richtig!

Nach deiner Änderung ja


EDIT:

Von welchem Typ sind f_ag, f_ap, ... denn?

[JasonDX]

Zitat:

Zitat von Karstadt

ich werde euch mein Geheimniss lüften.... :)

Das will ich nicht 20 mal eingeben!

[...]

sonder nur einmal!

Dann verwende einfach einen der Lösungsvorschläge, die ich gepostet habe. Wenn du Fragen dazu hast, kannst du sie gerne stellen.

greetz
Mike

[Karstadt]

Zitat:

Ich hätte erwartet, das 20 Formulare mit jeweils einer Tabelle drauf die selbe Klasse sind, bzw. zumindest von der selben basisklasse abgeleitet sind.

Ich habe das nicht verstanden. Sorry.

Auf jeder Form ist eine Gleichenamierge Komponente (Tabelle <-Komponentename) von Gleichen Typ TMyTable

Deine Lösung ist "fast richtig"

(Application.FindComponent(Formularname) as Tf_ag).Tabelle.open;

So würde das auch funktionieren, nun muss ich noch irgendwie as TF_ag durch eine Varialbe erseten, aber Wie?

(Application.FindComponent(Formularname) as TForm(Formular.ClassType)).Tabelle.open;


Ihr merkt schon, ich habe nicht so viel Ahnung in diese Situation....

[JasonDX]

Zitat:

Zitat von Karstadt

Deine Lösung ist "fast richtig"
(Application.FindComponent(Formularname) as Tf_ag).Tabelle.open;
So würde das auch funktionieren, nun muss ich noch irgendwie as TF_ag durch eine Varialbe erseten, aber Wie?
(Application.FindComponent(Formularname) as TForm(Formular.ClassType)).Tabelle.open;

Ihr merkt schon, ich habe nicht so viel Ahnung in diese Situation....

Beiträge anderer Benutzer zu lesen sollte aber schon zu den Kompetenzen eines DP-Benutzers gezählt werden:

Zitat:

Zitat von JasonDX

Delphi-Quellcode:

(f_XX.FindComponent('Tabelle') as TMyTable).Open

:zwinker:

greetz
Mike

[Karstadt]

Zitat:

Dann verwende einfach einen der Lösungsvorschläge, die ich gepostet habe. Wenn du Fragen dazu hast, kannst du sie gerne stellen

Ich habe das nicht verstanden. Muss ich das in jede Form einbauen?

:oops:

[JasonDX]

Zitat:

Zitat von Karstadt

Muss ich das in jede Form einbauen?

Bei der Lösung mit dem Interface? Teilweise. Das Interface musst du nur einmal deklarieren. Du musst aber jedes Formular aber davon ableiten, und also auch die Property und die get-Methode in jeder Formular-Klasse implementieren.
Wenn du Interfaces aber noch nicht kennst, empfehle ich dir die andere Variante:

Delphi-Quellcode:

(f_XX.FindComponent('Tabelle') as TMyTable).Open

Sie ist zwar nur halbso schön, jedoch sollte sie leichter verständlich sein. Und besser, der Code ist nicht der schönste von allen, aber dafür weiß man, was man tut ;)

greetz
Mike

[Karstadt]

Zitat:

(f_XX.FindComponent('Tabelle') as TMyTable).Open

Muss ich überlesen haben :)

Das funktioniert!

WOW doch so einfach.... VIELLEN DANK!

[Karstadt]

DIE LÖSUNG (für mich) :) DANKESCHÖN!

Delphi-Quellcode:

  with Formular.FindComponent('Tabelle') as TMyTable do
  begin
    Close;
    Sql := Sqlabfrage;
    open;
  end;