Dynamische Komponenten in MDIChild

[BAMatze]

Ich glaube das ist ein ziemlich einfacher Fehler, wenn ich das jetzt richtig verstanden habe. Habe auch in meinem Projekt in meiner HauptbedienForm mehrere TForm als MDIChilds. Denke du musst diese auch nur als TForm deklarieren. Hab dir mal meine "Fernsteuer-Procedure" hier angehangen. Die Fehlermeldung sagt ja auch, dass dort irgendwie deine deklaration der Variable nicht stimmen kann. Also musst du ja, um die Fehlermeldung zu beseitigen einfach den Typen ändern.

Delphi-Quellcode:

procedure TBedienForm.Fenstersteuern(Form: TForm);
begin
  if Form = ActiveMDIChild then
    begin
      case Form.WindowState of
        wsNormal: Form.WindowState := wsMinimized;
        wsMinimized: Form.WindowState := wsNormal;
        wsMaximized: Form.WindowState := wsNormal;
      end;
    end
  else
    begin
      Form.BringToFront;
      Form.WindowState := wsNormal;
    end;
end;

[Edit] Ich bin bei der Post davon ausgegangen, dass alles seperate TForm sind mit FormStyle = FSMDIChild. Was für diese Variante spricht, ist die gleiche Ansprache (ActiveMDIChild) in meiner Procedure. Wenn dies nicht hilft, dann könnte eventuell der umgedrehte Fall zutreffen, also einfach in TfMDIChild deklarieren, weiß nur nicht, ob dir dann das ActiveMDIChild hilft, weil das eine Form als Rückgabewert zu haben scheint. [/Edit]

Hoffe das hilft dir etwas
MfG
BAMatze