ControlCount = 5, ComponentCount = 0. Unterschied?

[Nalincah]

Dieser Code ist in der Kompo TPanelVerschieben (abgeleitet von TPanel)

Delphi-Quellcode:

for i := 0 to TPanelVerschieben(Self).ComponentCount - 1 do
begin
  ...
end;

Auf dem Panel sind 5 TLabel-Kompos. ComponentCount müsste doch eigentlich jetzt den Wert 5 haben. Ist aber leider 0.


Mit

Delphi-Quellcode:

for i := 0 to TPanelVerschieben(Self).ControlCount - 1 do
begin
  ...
end;

klappt es, aber ich will dann auch immer direkt auf das Label zugreifen:

Delphi-Quellcode:

for i := 0 to TPanelVerschieben(Self).ControlCount - 1 do
begin
  // Wenn Komponente = TLabel
  if Self.Controls[i] is TLabel then  // <<--- Klappt nicht!!!!
  begin
    // Dann füge in ListBox Eintrag mit "Top" und "Name" hinzu ("235;Label1)
    Posi.Items.Add(IntToStr(TLabel(Self.Components[i]).Top) + ';' + TLabel(Self.Components[i]).Name)
  end;
end;

Nur mit Control[i] geht das nicht. Mit Components[i] gehts schon, aber das ist ja 0. Was mach ich nun???

[mirage228]

Du musst SetSubcomponent im Label-Contructor aufrufen (ein Beispiel findest du im Source von TLabeledEdit) und dem Label (im Panel-Code) das Panel als .Parent zuweisen.
Dann sollte es gehen.

mfG
mirage228

[Christian Seehase]

Moin Sebastian,

wo benutzt Du dass denn?
Self enthält immer die Adresse des Objektes in dessen Methode es benutzt wird.