AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Componenten in Forms und Frames finden

Componenten in Forms und Frames finden

Ein Thema von Ykcim · begonnen am 6. Dez 2016 · letzter Beitrag vom 9. Dez 2016
Antwort Antwort
Seite 2 von 2     12
nahpets
(Gast)

n/a Beiträge
 
#11

AW: Componenten in Forms und Frames finden

  Alt 6. Dez 2016, 19:09
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.

Geändert von nahpets ( 6. Dez 2016 um 19:12 Uhr) Grund: Schreibfehler, wie immer :-(
  Mit Zitat antworten Zitat
Ykcim

Registriert seit: 29. Dez 2006
Ort: NRW
799 Beiträge
 
Delphi 10.4 Sydney
 
#12

AW: Componenten in Forms und Frames finden

  Alt 9. Dez 2016, 13:29
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
Patrick
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:36 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz