Interagieren mit mehreren Forms

[ratmalwer]

Hallo

ich habe eine Form (Form1) mit einem Stringgrid.
Daneben eine Form (Form9) welche mit dem Stringrid von Form1 interagiert z.b:

Code:

Form9.FotoAnzeigen(fileliste[Form1.stringGrid1.row].Quellpfadfilename);

Jetzt möchte ich eine neue Form (Form2) erstellen, welche dann auch mit Form9 interagiert.
Dann möchte ich variabel switchen können zwischen Form1.StringGrid1 und Form2.StringGrid1.

Ungefähr so:

Code:

if form1.active then   FormX:=Findcomponent('Form1') end;   
if form2.active then   FormX:=Findcomponent('Form2') end;   
Form9.FotoAnzeigen(fileliste[FormX.stringGrid1.row].Quellpfadfilename);

Gibt es eine Möglichkeit dies dynamisch bei Form9.open zu machen? Und was wäre der richtige Befehl.
Danke für einen Tipp.

Markus

[hoika]

Hallo,
benutze ein lokale StringGrid-Variable, die entweder auf das StringGrid in Form1 oder Form2 zeigt.

[himitsu]

FindComponent ist eine Methode (keine Funktion) und über xxx.FindComponent kannst du sagen, wo rauf die Komponente (z.B. dein Grid auf welcher Form) gesucht werden soll.

Und Benutze bitte "verständliche" Bezeichner,
oder kannst du ohne lange drüber nachzudenken und nachzugucken sagen was Form 1 bis 9 sind/machen?

Nur zur Sicherheit:
Form1 und Form9 sind unterschiedlich und sehen nicht zufällig gleich aus, machen das Selbe,
und sollen nur "doppelt" gleichzeitig angezeigt werden?

[ratmalwer]

Hallo Hoika

ja, ich glaube das ist der Weg.
Jedoch brauche ich wohl zuerst den Pointer auf die Form. Und dort enden meine Kenntnisse:

Code:

var
FormX : Tform;

on show

FormX := Form1;   // wie mache ich hier den Pointer?
oder
FormX := Form2;   // wie mache ich hier den Pointer?

Vielleicht gibts ja einen Weg, das sendende Form abzufragen.

[hoika]

Hallo,
nix mit FormX.
Du übergibst doch Form9 nur ein StringGrid.

[ratmalwer]

ja aber wahlweise von Form1 oder Form2 (den Namen: Stringrid1 könnte ich ja gleich für beide verwenden, da ich die Struktur gleichhalte)