Prozeduren in anderen Units ansprechen

[ibp]

Hallo,

ich habe da ein Problem , mit dem Zugriff auf Prozeduren anderer Units.
Es sind drei Units U1,U2,U3, hier schematisch dargestellt.
U1 ist die Main-Form, in U2 ist eine Baumstruktur (TreeView), die die Tabellenstruktur einer Datenbank darstellt und in U3 werden die Felder der DB je nach selektiertem Node dargestellt.
Jetzt will ich aber auch in U3 navigieren können und muss den Baum nachführen, aber da kracht es jedesmal, wenn ich von U3 auf U2 zugreifen will.!
Ich hoffe da gibt es eine Lösung!
Danke schon mal fürs Interesse.
Grüße aus F

Delphi-Quellcode:

unit u1; // Formular 1

interface

uses
  u2, // unit 2
  u3; // unit 3
type
  ..
  private
    form2_1:TForm  // von u2
    form3_1:Tform  // von u3
  ..
  end;

var
  form1:Tfo_U1

..
procedure ..
begin
  form2_1.mach_was_mit_proc_in_form2;  // <- klappt

  form3_1.mach_was_mit_proc_in_form3;  // <- zugriffsverletzung
end;



unit u2; // Formular 2

interface

uses
  u1;  // unit 1
  u3;  // unit 3
type
  ..
  private
    form1_2:TForm  // von u1
    form3_2:Tform  // von u3
  ..
  end;

var
  form2:Tfo_U2


..
procedure ..
begin
  form1_2.mach_was_mit_proc_in_form1;  // <- klappt

  form3_2.mach_was_mit_proc_in_form3;  // <- klappt
end;



unit u3; // Formular 3

interface

uses
  ..
type
  ..
  end;

var
  form3:Tfo_U3

implementation

uses
  u1,  // unit 1
  u2;  // unit 2


..
procedure ..
var
  zugriff_auf_form1:Tfo_u1;
  zugriff_auf_form2:Tfo_u2;

begin
  zugriff_auf_form1.mach_was_mit_proc_in_form1;  // <- zugriffsverletzung

  zugriff_auf_form2.mach_was_mit_proc_in_form2;  // <- zugriffsverletzung
end: