Parent herausfinden

[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

Gruß
Neutral General