Componenten in Forms und Frames finden

[Ykcim]

Ok, ich habe hier noch eine gute Erklärung gefunden und werde das Ganze mal so testen:

Delphi-Quellcode:

for I := 0 to Form.ComponentCount -1 do begin
if Form.Components[I] is TDBAdvEdit then
//Tu etwas;
end;

Im TestProjekt hat das geklappt, ob das auch mit einer gekapselten Klasse und einem Projekt mit Forms und Frames funktioniert muss ich noch testen.

Vielen Dank
Patrick

[Ykcim]

Ich muss jetzt doch noch einmal nachfragen:

Gibt es eine Möglichkeit, wie ich einer Procedure entweder ein TForm oder ein TFrame übergeben?

So nach dem Motto:

Delphi-Quellcode:

if form.components[I] is TButtom then
   ProcedureXY(Form)
else if form.components[I] is TFrame then
   ProcedureXY(Frame)

Ich kann natürlich zwei Mal die gleiche Procedure definieren mit dem Unterschied, dass die eine ein TForm und die andere ein TFrame bekommt, aber wer will das schon...
Am liebsten hätte ich etwas universelles, was ein TForm oder TFrame sein kann. Gibt es da eine Möglichkeit?

Vielen Dank
Patrick

[Der schöne Günther]

Ja. Eine Form leitet sich von TWinControl ab. Ein Frame ebenfalls. Und ein Panel auch, und eine GroupBox auch, und ...

Entweder baust du dir eine Prozedur in welches du ein TWinControl reinstecken kannst (also deine Form, deinen Frame, ...).

Oder, wenn man es richtig cool haben möchte, machst du einen Klassenhelfer draus.

Und wenn du es so machen willst dass dir die Frauen gleich um den Hals fallen kommen noch Generics rein wie ein wie es z.B. dieser Poser hier macht:
http://www.delphipraxis.net/175655-g...ml#post1220959

[Ykcim]

Das ist klasse! Ich denke, damit komme ich weiter.
Auf die Frauen am Hals muss ich verzichten, denn Generics übersteigen meine Kenntnisse...

Vielen Dank
Patrick

[nahpets]

Du hast die Lösung doch schon geschrieben und genutzt.

Du fragst ab, ob irgendwas is tIrgendwas, wenn ja mach was.

Du übergibst halt als Parameter einen Vorfahrentyp, der bei allen gleich ist.

Da Du in der Schleife Components abfragst und damit nach allen Komponenten suchst, übergibst Du der Prozedure halt die Komponente, bei der Du alle Komponenten abfragst, die sie in Components enthält.

Delphi-Quellcode:

procedure WieSuchenNachKomponenten(a : TComponent);
var
  i : Integer;
begin
  if a is TForm then begin
    for i := 0 to a.Componentcount - 1 do begin
      if a.Components[i] is TWasweissIch then begin
        // TustduwasweissIch  
      end else
      if a.Components[i] is TKannwasAnderesSein then begin 
        // TustduKannwasAnderesSein
      end;
    end; 
  end else
  if a is TFrame then begin
     // Wenn es was ganz anderes sein soll
  end else
  ...

end;

Ist es egal, ob nun ein TForm oder ein TFrame reinkommt, dann geht's auch ohne die Abfrage nach TForm bzw. TFrame.

Du willst ja schließlich was mit den Komponenten machen, die in Components enthalten sind. Dabei dürfte es (fast) egal sein, ob das Teil, dass Du in die Prozedur reingibst nun ein TFrom oder ein TFrame oder ein TPanel oder TEinWasWeissIch ist, dessen Komponenten aus Components "verarbeitet" werden sollen.

[Ykcim]

Hallo Zusammen,

war beruflich unterwegs, daher die Funkstille...

Vielen Dank für Eure Antworten. Ich denke, dass ich es genauso hinbekommen werde.

Vielen Dank
Patrick