D7 FindComponent über .tag und Caption

[beanbear6]

Hi zusammen,
uups... nun ist mir was aufgefallen... ich melde mich dann nochmal...
nene es genügt wenn die Panels über i (also tag1, tag2, usw.) gefunden werden und ich dann die caption ändern kann...

Also: Ich hab 10 Panels (mit Caption) und möchte die Caption über einen Zähler 1..10 leeren. Wenn das Passiert ist hol ich mir aus einer Datenbank (Spalte1 = Nummer von 1..10 und spalte2 ist Bezeichnung für die Panels) die neue Beschriftung. Ziel des Ganzen ist, dass ich Panels aus einer Datenbank raus beschriften kann. Im OnShow Ergebnis der Form leere ich also die Beschriftungen der 10 Panels und hol mir die neue Beschriftung aus der Datenbank. Is bissl schwierig zu erklären ich hoffe i habs hingekriegt...

Gruß Reiner

[Helmi]

Dann vielleicht so:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  i: Integer;
  TempPanel: TPanel;

begin
  for i := 0 to Pred(ComponentCount) do
    If Components[i].ClassType = TPanel then
      begin
        TempPanel := TPanel(Components[i]);

        If TempPanel.Tag in [1..10] then
          TempPanel.Caption := Format('Ich bin Panel-Nr. %d!', [TempPanel.Tag]);
      end;
end;

[nahpets]

Oder suchst Du sowas? (nicht getestet)

Delphi-Quellcode:

var
   myComp : TComponent;
begin
  while not qry.Eof Do begin
    myComp := FindComponent(Format('Panel%d',[qry.FieldByName('Spalte1').AsInteger]));
    if Assigned(myComp) and (myComp is TPanel) then begin
      TPanel(myComp).Caption := qry.FieldByName('Spalte2').AsString; 
    end;
    qry.Next;
  end;
end;

[beanbear6]

Hi zusammen,
ich teste das mal ab und melde mich... Gleich aber mal ein großes Dankeschön für Eure Mühe...
Gruß Reiner

[beanbear6]

Hi zusammen,
also ich nochmal... Ich dachte mir schon dass das wenn ich nun noch mit Datenbank ankommen ausartet und ich Eure Geduld sehr strapaziere. Also ich versuch das nochmal mit folgendem Beispiel (z.B. für 100 Panels - die Panels haben die tags von 1 bis 100):

Delphi-Quellcode:

for x = 1 to 100 do
  // suche Panels mit den tags 1 bis 100
  // Setze auf Panels 1 bis 100 den Text: nicht verfügbar

Wenn ich das hinkriege dann schaff ich den Rest mit der Datenbank auch. Und gleich nochmal ein Dankeschön!!
Gruß beanbear

[Helmi]

Zitat von beanbear6:

Hi zusammen,
also ich nochmal... Ich dachte mir schon dass das wenn ich nun noch mit Datenbank ankommen ausartet und ich Eure Geduld sehr strapaziere. Also ich versuch das nochmal mit folgendem Beispiel (z.B. für 100 Panels - die Panels haben die tags von 1 bis 100):

Delphi-Quellcode:

for x = 1 to 100 do
  // suche Panels mit den tags 1 bis 100
  // Setze auf Panels 1 bis 100 den Text: nicht verfügbar

Wenn ich das hinkriege dann schaff ich den Rest mit der Datenbank auch. Und gleich nochmal ein Dankeschön!!
Gruß beanbear

Die Lösung steht schon da - einfach mal die Codes verstehen versuchen und schon kommst auf die Lösung

[nahpets]

Delphi-Quellcode:

var
  i : Integer;
begin
  while not qry.Eof Do begin
    for i := 0 to ComponentCount - 1 do begin
      if not (Component[i] is TPanel) then continue;
      if TPanel(Component[i]).Tag = qry.FieldByName('Spalte1').AsInteger then begin
        TPanel(Component[i]).Caption := qry.FieldByName('Spalte2').AsString;
      end;
    end;
    qry.Next;
  end;
end;

[beanbear6]

Hallo zusammen,
vieelen vieelen Dank für Eure Hilfe, es klappt jetzt
Gruß Reiner

[markus5766h]

nur der Vollständigkeit halber :

http://www.delphipraxis.net/147151-c...erstellen.html