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: