Auf aktives MDI-Child zugriffen

[arbu man]

Hi

Ich versuche grade eine MDI Anwendung zu schreiben. Das erstellen der MDI Fenster klappt. Doch wie kann ich auf die Eingenschaften der aktiven Form bzw. aller Formen zugreiffen mit ActiveMDIChild klappt das irgentwie nicht ich kann z.B. nicht auf eine Komponente zugreiffen.

Gibt es da eine einfache Möglichkeit ?

Danke schon mal

[Die Muhkuh]

Hi,

entweder:

Delphi-Quellcode:

if ActiveMDIChild is TMDIForm then
  TMDIForm(ActiveMDIChild).Button1.Caption := 'Test';

oder:

Delphi-Quellcode:

function GetMDIForm: TMDIForm;
begin 
  Result := TMDIForm(ActiveMDIChild);
end;

// eine Procedure:

GetMDIForm.Button1.Caption := 'Test2';

Wobei ich die zweite Variante besser finde

[Robert_G]

Woher soll ein Eiegnschaft vom Typ TForm bzw. TCustomForm wissen, was deine FormKlasse an Eigenschaften/Methoden hat?
Also muss ein Type cast her:

Delphi-Quellcode:

if ActiveMDIChild is DeineFormKlasse then
  with DeineFormKlasse(ActiveMDIChild) do
  begin
    SomeProperty := 'Miep';
  end;

[alcaeus]

Hallo arbu man,

ActiveMDIChild ist vom Typ TForm, d.h. du musst die Variable erstmal casten, z.B.:

MeinMDIChild := TMeineMDIChildKlasse(ActiveMDIChild); Anschließend kannst du auf Komponenten zugreifen.

Greetz
alcaeus

[edit]Hoppla..zu langsam[/edit]

[arbu man]

Danke an alle für die schnelle Hilfe, die function ist super klappt jetzt