Nummerierung von Komponenten

[Hansa]

Hi,

ich brauche die Nr. einer Form usw. So ähnlich wie Form1, Form2....... Weiß jemand, wie das geht ?

[Christian Seehase]

Moin Hansa,

könntest Du mal erklären, was Du genau vorhast?
So ganz begriffen hab' ich Dein Problem nämlich nicht.

[Hansa]

Hi,

ich habe eine Komponente, die will ich behandeln wie üblich durch hochzählen des Standardnamens. Dann gibt es noch eine UnitIdent, das könnte es sein.

[Christian Seehase]

Moin Hansa,

also wenn es sich um dynamisch erzeugte Komponenten handeln sollte, bist Du eh' selber für die Namensvergabe zuständig.

[Hansa]

dynamisch erzeugt ist gut. Das ganze soll meine eigene Komponente machen. Die dritte auf einer Form liegende Komponente soll dann eben HansaForm3 heißen oder was weiß ich wie.

[Christian Seehase]

Moin Hansa,

jetzt komm' ich allerdings nicht mehr ganz mit: :shock:
Bei visuellen Komponenten, die in der IDE erzeugt werden, wird automatisch nummeriert (egal, ob eigene Kompo oder nicht), und bei dynamisch erzeugten muss man die Namen selber verwalten.

[Hansa]

Ja, bin schon mehrfach gewarnt worden so was zu machen. hmm, also gut, die werden dynamisch erzeugt, indem ich wie bei einer Form irgendeine Form auf die Form lege, allerdings nicht die Standard-Form, sondern eine eigene, die sich allerdings genauso verhält. Oben in der Titelzeile steht im Moment aber kein Name. Im OI sehe ich einen Namen, xy1,2,3,4,5,6. Diesen Namen will ich als Caption im Create der Form direkt zuweisen. Das geht auch, aber die Nr. ist nicht da. Da ist was mit UnitIdent usw., aber wie drankommen ? Bzw. wo ist das hinterlegt ? Mal sehen, ob ich so mit Hilfe der Delphi-Praxis was hinbekomme. :mrgreen:

[Christian Seehase]

Moin Hansa,

ich hab's begriffen :bounce1: :mrgreen:

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;

[Hansa]

Was ist FFfirst ? Kenne solche Abkürzungen nur von Flashfiler.

[Christian Seehase]

Moin Hansa,

sorry, hatte ich vergessen mit reinzuschreiben.
FfFirst ist ein Feld vom Typ boolean, das im Konstruktur auf true gesetzt wird.

(F für Field, f für flag = boolean)