Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Dynamisch Erzeugte Frames finden (https://www.delphipraxis.net/201173-dynamisch-erzeugte-frames-finden.html)

Uwe Raabe 29. Jun 2019 09:44

AW: Dynamisch Erzeugte Frames finden
 
Zitat:

Zitat von dummzeuch (Beitrag 1435598)
Einfache Antwort: Gib dem Frame einen eindeutigen Namen, dann funktioniert FindComponent auch damit.

Das funktioniert auch nur dann, wenn die Form auch der Owner ist.

Delbor 29. Jun 2019 10:34

AW: Dynamisch Erzeugte Frames finden
 
Zitat:

Zitat von jacky213 (Beitrag 1435600)
Allerdings kann ich schon sagen, dass ich den dynamischen Frame schon einen Namen zugewiesen habe und dieser nach dem erzeugen auf Form 1 immer noch nicht über FindComponent Schleife zu finden ist.

FindComponennt ist ja auch eine Funktion und kein Schleifenzähler. Alles, was die tut: sie durchsucht einen angegebenen Container nach einer bestimmten Komponente. ZB. so:
Delphi-Quellcode:
function TFormFoo.Searchcomponent(Value: TObject):TObject;
var i: integer; Finded: TComponent;
begin
  For i := 0 to Self.ComponentCount -1 do
  begin
    if Self.Components[i].Name = Value.Name then
      Result := Self.Compoents[i];
  end;
end;
Zitat:

Zitat von jacky213 (Beitrag 1435600)
Kurze Zusatzfrage. Ich habe eine kleine Funktion welche den Namen des Frames zurückgeben sollte wenn ein Button (befindet sich auf dem frame) gedrückt wird. Leider gibt dieser nichts zurück.

Delphi-Quellcode:
function GetFrameName : String:
Begin
Result := TFrame(self).Name;
end;

Kann ja auch nicht. Erst muss TFrame(self).Name auch etwas zugewiesen werden.
Du solltest dies aber so erreichen können:
Delphi-Quellcode:
function TFormFoo.Searchcomponent(Value: TObject):TObject;
var i: integer; [s]Finded: TComponent[/s];
begin
  For i := 0 to Self.ComponentCount -1 do
  begin
    if Self.Components is TFrame then
    begin
    if Self.Components[i].Name = Value.Name then
      Result := Self.Compoents[i];
    end;
  end;
end;

function TFormFoo.GetFrameName((Value: String) : String:
  var Value: TFrame;
Begin
ComponentName := Searchcomponent(Value)
Result := TFrame(self).Name;
end;
Statt in Searchcomponent alle Components zu durchlaufen, könntest du da auch Findkomponent aufrufen und dessen Rückgabewert auswerten. Allerdings hättest du mit Searchcomponent viel mehr Möglichkeiten. Du könntest in einem weiteren Parameter den Container angeben, der durchsucht werden soll oder in einer Liste alle Komponenten eines bestimmten Tips zurückgeben oder ...

Gruss
Delbor

PS: Da ich selbst FindComponent nie verwende, ist mir ein wesentlicher Schitzer unterlaufen: FindComponent ist keine eigenständige Funktion, sondern ein Methode von TPanel und Co. und damit ist der Container, der durchsucht werden soll, schon angegeben.

Delbor 29. Jun 2019 10:38

AW: Dynamisch Erzeugte Frames finden
 
Hi Uwe Raabe

Zitat:

Zitat von Uwe Raabe (Beitrag 1435607)
Zitat:

Zitat von dummzeuch (Beitrag 1435598)
Einfache Antwort: Gib dem Frame einen eindeutigen Namen, dann funktioniert FindComponent auch damit.

Das funktioniert auch nur dann, wenn die Form auch der Owner ist.

Seit wann denn das? ich dachte immer, FindComponent findet Komponenten in einem angegeben Container...

Gruss
Delbor

Uwe Raabe 29. Jun 2019 13:43

AW: Dynamisch Erzeugte Frames finden
 
Zitat:

Zitat von Delbor (Beitrag 1435614)
Seit wann denn das? ich dachte immer, FindComponent findet Komponenten in einem angegeben Container...

Das ist richtig! FindComponent ist ja eine Funktion dieses Containers.

Aus dem Eingangspost ist aber zu erkennen, daß FindComponent eben auf die Form angewendet wird. Somit können auch nur Komponenten gefunden werden, bei denen die Form der Owner ist.

Zitat:

Zitat von jacky213 (Beitrag 1435587)
wie findet man Dynamisch erzeugte Frames auf einer Form?

im Normalfall mache ich das mit for i := 0 to FindComponent... und sofern ich den Frame über Delphi auf die Form lege funktioniert das auch.



Alle Zeitangaben in WEZ +1. Es ist jetzt 03:44 Uhr.
Seite 2 von 2     12   

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