Zitat von
Mr_G:
Dumm wie ich nunmal bin hab ich die Function genau wie beschrieben aufgerufen.
Macht ja nix. Aus Fehlern lernt man doch immer noch am besten.
Zitat von
Mr_G:
Großes Entschuldigung und riesiges Danke für die Geduld!!!
Manchmal bin sogar ich ein wenig geduldig.
BTW: Du brauchst hier auch wirklich keine globale Variable.
Wenn du nur Children von einem Typ hast gates so:
Delphi-Quellcode:
private
function getMyActiveChild: ChildKlasse;
public
property MyActiveChild: ChildKlasseread getMyActiveChild;
Delphi-Quellcode:
function ParentKlasse.getMyActiveChild: ChildKlasse;
begin
if assigned(ActiveMdiChild) and (ActiveMdiChild is ChildKlasse) then
result := ChildKlasse(ActiveMdiChild)
else
result := nil;
end;
Beim nächsten Mal aber bitte soweit im Debugger laufen bis du Zeile kennst, die knallt. (BreakPoints & F8 sind etwas unentbehrliches
)