Nummerierung von Komponenten

[Christian Seehase]

Moin Hansa,

ich hab's begriffen

Dazu müsstest Du, wenn ich nicht sehr irre, die Methode CreateWnd überschreiben. Direkt im Konstruktor geht das m.E. noch nicht.

Ungetestet:

Delphi-Quellcode:

type
  TMyForm = class(...)
  //...
  protected
    procedure CreateWnd; override;
  //...
  end;

procedure TMyForm.CreateWnd;
begin
  inherited;
  // Sollte nur einmal gemacht werden. 
  // Anschliessend sollte das die Methode SetCaption machen.
  if FfFirst then begin
    FfFirst      := false;
    self.Caption := self.Name;
  end;
end;