Parent herausfinden

[Flocke]

Zitat:

Zitat von Neutral General

Ich muss wie gesagt die DXSpriteEngine Kompo neu ableiten und ändern halt und dadurch auch DXDraw weil DXDraw ein TDXSpriteEngine will und keine TDXMeineSpriteEngine! :wall:

Wenn du deine Komponente von TDXSpriteEngine ableitest, dann ist deine neue Komponente immer noch auch ein TDXSpriteEngine. Von TComponent abgeleitete Sachen (TControl, TWinControl, TEdit) sind auch alle immer noch TComponents und können überall da benutzt werden, wo ein TComponent benötigt wird.

[Neutral General]

Also ich habs jetzt anders gemacht... Ob das jetzt so schön ist sei mal dahingestellt aber ich finds besser als direkt alles neuzuschreiben...

Delphi-Quellcode:

procedure TDXButton.SetModOptions;
var i,j: Integer;
begin
 for i:= 0 to Application.ComponentCount-1 do
 begin
  if Application.Components[i].ClassParent = TForm then
  begin
   for j:=0 to Application.Components[i].ComponentCount-1 do
   begin
    if Application.Components[i].Components[j].ClassType = TDXDraw then
    begin
     FDXDraw := TDXDraw(Application.Components[i].Components[j]);
     FForm := TForm(Application.Components[i]);
     if FForm.BorderStyle <> bsNone then
      FFormHasBorder := true;
     exit;
    end;  // if     ClassType = TDXDraw
   end;  //  for    j
  end;  //   if     ClassParent = TForm
 end;  //    for    i
end;

So hab ich mir jetzt die richtige Form und das DXDraw besorgt :mrgreen:

Gruß
Neutral General

[Khabarakh]

Ääähm............ kreativ :mrgreen: .
Mal im Ernst, mit einer guten Klassenhierarchie sollte so etwas kein Problem sein.

[Neutral General]

Zitat:

Zitat von Khabarakh

Ääähm............ kreativ :mrgreen: .
Mal im Ernst, mit einer guten Klassenhierarchie sollte so etwas kein Problem sein.

GRMMMPPFFF..Ich hab DelphiX nicht entwickelt :roll: :?