Komponente mit ChildControls entwickeln

[stahli]

Wenn Du einer Komponente einen Namen gibst, muss der in der Anwendung eindeutig sein.
Wenn Du Komponenten zur Laufzeit erzeugst, wird dieser jedoch erst mal kein Name zugewiesen.

Ich habe das mal so gelöst:

Delphi-Quellcode:

constructor TXyz.Create(AOwner: TComponent);
begin
  inherited;
  Name := FindUniqueName(ClassName);
end,

Delphi-Quellcode:

unit ssClasses;

interface

function FindUniqueName(BaseName: String; OwnerName: String = ''): String;

implementation

uses
  SysUtils, Forms, Windows;

var
  UN: LongWord = 0;

function FindUniqueName(BaseName: String; OwnerName: String = ''): String;
var
  N: String;
begin
  if OwnerName <> '' then
    BaseName := OwnerName + '_' + BaseName;
  BaseName := BaseName + '_';
  Inc(UN);
  N := BaseName + IntToStr(UN);
  Result := N;
  //OutputDebugString(PChar(N));
end;

end.

[himitsu]

Jede Komponente, welche als "Owner" fungiert, kann bei ihren Childs keine mehrfachen Namen verwalten.
>>> Namen müssen eindeutig sein.

Einzige Ausnahme ist "kein Name", ala '' .

Dynamisch erstellte Komponenten müssen/können eh ohne Name genutzt werden, da man sie auch über ihre Instanz referenzieren/verwalten kann.
(ist auch schneller/optimaler, als FindComponent)

Es ist also nicht nötig an seine SubKomponenten Namen zu vergeben.

[stahli]

Richtig, eine Namensvergabe kann aber beim Debuging hilfreich sein.

[Bummi]

ich kann hier nichts testen aber wenn Du Namen verwenden willst
warum erzeugst Du hier auf AOwner und nicht auf self?
FToolbar := TAdvToolBar.Create(AOwner);
FToolbar.Name := 'DataToolbar';
Wenn Du wg. Eigenheiten des TAdvToolBar tatsächlich auf Owner "Createn" muß knallt es bei vergebenem Namen auf dem Owner.

[stahli]

Bei mehreren Instanzen würde dann mehrfach der gleiche Name vergeben. Das ist unzulässig.

[Bummi]

@stahli
jepp, allerdings nur wenn er wie in seinem bisherigen Code Owner verwendet...

Die Namen müssen nur innerhalb des Owners eindeutig sein, bei Self wäre es jedes mal ein neuer Owner.

[torud]

Das mit dem Self tat Wunder!
Die Namensvergabe habe ich nun auch weggelassen.
Aktuell läufts erstmal!