AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Ansprechen von während Laufzeit erzeugter Komponenten
Thema durchsuchen
Ansicht
Themen-Optionen

Ansprechen von während Laufzeit erzeugter Komponenten

Offene Frage von "TiGü"
Ein Thema von Kurt Wallander · begonnen am 7. Mär 2022 · letzter Beitrag vom 10. Mär 2022
 
Kurt Wallander

Registriert seit: 11. Mai 2020
Ort: Freiberg
35 Beiträge
 
Delphi 10.4 Sydney
 
#1

Ansprechen von während Laufzeit erzeugter Komponenten

  Alt 7. Mär 2022, 17:00
Delphi-Version: 10.4 Sydney
Hallo Delphianer,
mein Problem:
Schritt 1: erzeuge in Form1.create insgesamt 81 Labels während der Laufzeit. Alles i. O.
Schritt 2: Lesen Daten von einer Datei in ein Integer-Array[1..9,1..9] ein. Alles i. O.
Schritt 3: Will nun (falls F[i,k]>0) ein Label ansprechen und beschriften. Wie kann ich dieses Label ansprechen? Der Compiler kennt ja dieses Label nicht, da es zur Entwurfszeit nicht existiert.
Allen Labels ist die gleiche onClick-prozedur zugeordnet. Diese soll ebenfalls das Label beschriften. Die Labels könnten über ihren Namen angesprochen werden.
Habe Hilfen und Tutorials tonnenweise gelesen, aber dort läßt man sich nur zum Generieren der Komponenten aus und nicht wie ich von einer anderen prozedur der gleichen Form diese dann anspreche/aufrufen.
Für nützliche Hinweise bin ich dankbar.
Im Schritt 1 klappt lediglich die Farbzuordnung nicht.

Delphi-Quellcode:
   .
   .
   .
   i:=1;
   while i<= 9 do
   begin
      j:=1;
      while j<= 9 do
      begin
         n_lbl:='Feld'+IntToStr(j)+IntToStr(i);
         begin
            ALabel:=TLabel.Create(Self);
            ALabel.Name := n_lbl;
            ALabel.Left := left_M+(i-1)*sw-5;
            ALabel.Top := top_m+(j-1)*sw-5;
            ALabel.height:=sw-12;
            ALabel.width:=sw-12;
            ALabel.Transparent:=false;
            ALabel.color:=clSilver;
            ALabel.visible:=true;
            ALabel.Caption:=n_lbl;
            ALabel.Parent := GroupBox1;
            ALabel.OnClick:=PanelClick;
            Inc(j);
         end;
      end;
      Inc(i);
   end;
MfG
Kurt Wallander

Geändert von Kurt Wallander ( 7. Mär 2022 um 17:04 Uhr)
  Mit Zitat antworten Zitat
 

 

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 07:50 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