Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Karstadt,
23. Jun 2006
Function Tf_hauptfenster.SucheFormular(Formularname:String):TForm;
var i: Integer;
begin
with f_hauptfenster do for I := MDIChildCount-1 downto 0 do
begin
IF LowerCase(MDIChildren.Name) = LowerCase(Formularname) Then
begin
Result := f_hauptfenster.MDIChildren;
break
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Karstadt,
23. Jun 2006
Aber wie kann ich jetzt eine Funktion von f_b ansprechen?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Karstadt,
23. Jun 2006
so habe ich das gelöst..
Function SucheKomponente(Formularname,Komponentename:String):TComponent;
var i: Integer;
begin
with f_hauptfenster do for I := MDIChildCount-1 downto 0 do
begin
IF LowerCase(MDIChildren.Name) = LowerCase(Formularname) Then
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Karstadt,
23. Jun 2006
Beispiel.
so erstelle ich die MDIChild´s
Tf_a.create(nil);
Tf_b.create(nil);
nun will ich von f_a auf die f_b.Tabelle zugreifen. Bekomme aber eine Zugrifsverletzung. Warum?