Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Zwischem MDI CHILD komunizieren? -Zugrifsverletzung? (https://www.delphipraxis.net/71998-zwischem-mdi-child-komunizieren-zugrifsverletzung.html)

Karstadt 23. Jun 2006 14:07


Zwischem MDI CHILD komunizieren? -Zugrifsverletzung?
 
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?

Karstadt 23. Jun 2006 14:47

Re: Zwischem MDI CHILD komunizieren? -Zugrifsverletzung?
 
so habe ich das gelöst..

Delphi-Quellcode:
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[i].Name) = LowerCase(Formularname) Then
    begin
      Result := f_hauptfenster.MDIChildren[i].FindComponent(Komponentename);
      break
    end;
  end;

end;

Karstadt 23. Jun 2006 15:05

Re: Zwischem MDI CHILD komunizieren? -Zugrifsverletzung?
 
Aber wie kann ich jetzt eine Funktion von f_b ansprechen?

Angel4585 23. Jun 2006 15:07

Re: Zwischem MDI CHILD komunizieren? -Zugrifsverletzung?
 
Delphi-Quellcode:
Tf_b(f_hauptfenster.MDIChildren[i]).Funktionsname
:?:

Karstadt 23. Jun 2006 15:11

Re: Zwischem MDI CHILD komunizieren? -Zugrifsverletzung?
 
Delphi-Quellcode:
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[i].Name) = LowerCase(Formularname) Then
    begin
      Result := f_hauptfenster.MDIChildren[i];
      break
    end;
  end;

end;
nun habe ich das... das scheint zu funktionieren :)


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:15 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz