MDI: Auf Komponente des Childs zugreifen

**Yan**

Hi @all!

Mal wieder eine MDI-Frage. Ich hab' leider in der Suche nicht gefunden. Also:

Wie kann ich von der Haupt-Form auf eine Komponente zugreifen, die auf dem MDI-Child liegt?

Mit ActiveMDIChild komme ich ja an das aktive Fenster. Zumindest der OH nach zu schließen. Aber wie komme ich jetzt an die Komponente?

Vielen Dank schonmal,

Moin!

Da ActiveMDIChild vom Typ TForm ist, musst du erstmal einen typecast auf die Klasse deines MDI Childs machen, diese kennt dann auch deine Komponenten.

MfG
Muetze1

**Yan**

Aah ja...

Und was heißt das, ich meine das Typecasting?
Könntest du mir das kurz erklären?

Vielen Dank,

**franktron**

Ganz einfach

(ActiveMDIChild.FindComponent('Button1') AS TButton).Click; müssen noch abfragen ob gefunden und so rein.

**Yan**

Danke! Das hilft mir schon eher weiter.

[EDIT]Mein 100ster Beitrag!!

[/EDIT]

Warum rufst du in deinem Beispiel FindComponent auf?

markieren

Code:

			var Button: TButton;

begin 

if Self.MDiChildCount > 0 then

Button := (Self.ActiveMDIChild as TForm2).Button1;

end;

Bei bedarf kann man hier auch noch auf nil prüfen.

**Die Muhkuh**

Oder:

TMDIFormName(ActiveMDIChild).Button1Click; @bigg

ich weis. Es ist ja nur der reine Code.

Man kanns auch so machen:

markieren

Delphi-Quellcode:

			if ActiveMDIChild is TMDIFormName then

  TMDIFormName(AcitveMDIChild).Button1Click;

Und was ist wenn gar kein Child geöffnet ist?
dann bekommst du nämlich so rote Fehlermeldungen.

PS: Button ist in meinem Beispiel nur ein Zeiger auf TButton

MDI: Auf Komponente des Childs zugreifen

MDI: Auf Komponente des Childs zugreifen

Re: MDI: Auf Komponente des Childs zugreifen

Re: MDI: Auf Komponente des Childs zugreifen

Re: MDI: Auf Komponente des Childs zugreifen

Re: MDI: Auf Komponente des Childs zugreifen

Re: MDI: Auf Komponente des Childs zugreifen

Re: MDI: Auf Komponente des Childs zugreifen

Re: MDI: Auf Komponente des Childs zugreifen

Forumregeln

Muetze1 (Gast) n/a Beiträge	#2 Re: MDI: Auf Komponente des Childs zugreifen 6. Jan 2005, 14:16 Moin! Da ActiveMDIChild vom Typ TForm ist, musst du erstmal einen typecast auf die Klasse deines MDI Childs machen, diese kennt dann auch deine Komponenten. MfG Muetze1
	Zitat

Yan Registriert seit: 26. Sep 2003 Ort: Aachen 129 Beiträge Delphi 7 Personal	#3 Re: MDI: Auf Komponente des Childs zugreifen 6. Jan 2005, 14:31 Aah ja... Und was heißt das, ich meine das Typecasting? Könntest du mir das kurz erklären? Vielen Dank, Yannick F. mfG - Yannick
	Zitat

franktron Registriert seit: 11. Nov 2003 Ort: Oldenburg 1.446 Beiträge Delphi 10.2 Tokyo Enterprise	#4 Re: MDI: Auf Komponente des Childs zugreifen 6. Jan 2005, 14:35 Ganz einfach (ActiveMDIChild.FindComponent('Button1') AS TButton).Click; müssen noch abfragen ob gefunden und so rein. Frank Tux sein Lieblingsquellcode While anzfische<TuxSatt do begin Fisch:=TFisch.Create; Tux.EssenFisch(Fisch); Fisch.Free;inc(anzfische); end;
	Zitat

Yan Registriert seit: 26. Sep 2003 Ort: Aachen 129 Beiträge Delphi 7 Personal	#5 Re: MDI: Auf Komponente des Childs zugreifen 6. Jan 2005, 14:37 Danke! Das hilft mir schon eher weiter. [EDIT]Mein 100ster Beitrag!! [/EDIT] Yannick F. mfG - Yannick
	Zitat

bigg (Gast) n/a Beiträge	#6 Re: MDI: Auf Komponente des Childs zugreifen 6. Jan 2005, 14:47 Warum rufst du in deinem Beispiel FindComponent auf? markieren Code: var Button: TButton; begin if Self.MDiChildCount > 0 then Button := (Self.ActiveMDIChild as TForm2).Button1; end; Bei bedarf kann man hier auch noch auf nil prüfen.
	Zitat

Die Muhkuh Registriert seit: 21. Aug 2003 7.332 Beiträge Delphi 2009 Professional	#7 Re: MDI: Auf Komponente des Childs zugreifen 6. Jan 2005, 15:16 Oder: TMDIFormName(ActiveMDIChild).Button1Click; @bigg ich weis. Es ist ja nur der reine Code. Man kanns auch so machen: markieren Delphi-Quellcode: if ActiveMDIChild is TMDIFormName then TMDIFormName(AcitveMDIChild).Button1Click; Manuel Blog reactivated
	Zitat

bigg (Gast) n/a Beiträge	#8 Re: MDI: Auf Komponente des Childs zugreifen 6. Jan 2005, 15:19 Und was ist wenn gar kein Child geöffnet ist? dann bekommst du nämlich so rote Fehlermeldungen. PS: Button ist in meinem Beispiel nur ein Zeiger auf TButton
	Zitat