Innerhalb einer Komponente ihren Namen rausfinden

ao · Beiträge: 145 Win XP Prof. D7 Ent.

Moin, moin,

ich habe einen Komponente entwickelt, klappt auch alles wunderbar, nur bin ich irgendwie zu dumm, innerhalb der Komponente (zur Laufzeit) ihren Namen rauszufinden. :cry:

Ich hoffe ihr könnt mir helfen.

Gruß
Andreas

Renegade · Beiträge: 358 Win XP Pro, Win 7 Beta BDS 2006

Moin erstmal!

Das sollte folgendermaßen funzen:

markieren

Quelltext

1:	ShowMessage(MeineKompo.Name);

Gruß

_________________
Sokrates (468 v.Chr. - 399 v.Chr.)
"Es ist keine Schande, nichts zu wissen, wohl aber, nichts lernen zu wollen."

Arakis · Beiträge: 344

Ich glaub, ao meinte vielleicht etwas anderes, also den Namen von sich selbst herausfinden, ohne "MeineKompo" zu verwenden.

markieren

Quelltext

1:	ShowMessage(self.Name);

Vorraussetzung ist, dass man sich gerade in der Klasse der Komponente befindet.

Oder ist das das selbe wie bei Renegade user defined image

_________________
Mit dem Computer löst man Probleme, die man ohne ihn nicht hätte.
Entwickler von SpaceTrek: The New Empire - Siehe Hompage!

ao · Beiträge: 145 Win XP Prof. D7 Ent.

Hallo,

Wenn ich meine Komponente zur Entwicklungszeit z.B. in ein DataModule
setze, bekommt die Komponente ja automatisch einen Namen. In dem Fall reicht es, wenn ich innerhalb meiner Komponente einfachShowMessage(Name);aufrufe, da ich mich ja innerhalb der Klasse befinde.

Wenn ich meine Komponente aber zur Laufzeit z.B. so erzeuge

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:

var
  Q: TMyComponent;
begin
  Q := TMyComponent.Create(Form1);
  // irgendwas mit der Komponente machen
  Q.Free;
end;

dann gibtShowMessage(Name); nur einen leeren string zurück, da ich q.name keinen Wert zugewiesen habe.
Ich hätte aber gerne "Q".

Gruß
Andreas

Renegade · Beiträge: 358 Win XP Pro, Win 7 Beta BDS 2006

Moin erstmal!

Ich wüßte im Moment nicht wozu du das bräuchtest. Du erzeugst die Kompo ja im Code - also weißt du ja wie sie heißt.

Ansonsten weiß doch beim createn Q.Name:='Q' zu.

Gruß

_________________
Sokrates (468 v.Chr. - 399 v.Chr.)
"Es ist keine Schande, nichts zu wissen, wohl aber, nichts lernen zu wollen."

Arakis · Beiträge: 344

Meiner Meinung nach kann das nicht gehen, weil der Variabelname zur Laufzeit nicht bekannt ist. Variabelnamen sind ja nur eine Kleine Hilfe für uns Menschen, das Objekt "Q" kann ja als Komponente den Namen "irgendwas" haben. Alles andere wären Sprachkonstrukte, so wie sie bei Scriptsprachen häufig verwendet werden(Sourcecode zur Laufzeit generieren)

Vielleicht sagt dir das irgendwas:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Button1Click(Sender: TObject);
var
  IrgendEineKompo: TComponent;
begin
  IrgendEineKompo := self.FindComponent('Button1');
  showmessage(IrgendEineKompo.Name); //Hier wird "Button1" angezeigt
end;

Bis dann

_________________
Mit dem Computer löst man Probleme, die man ohne ihn nicht hätte.
Entwickler von SpaceTrek: The New Empire - Siehe Hompage!

ao · Beiträge: 145 Win XP Prof. D7 Ent.

Also wenn ich "Q" nicht anders rausfinden kann, dann muss ich halt der Eigenschaft Name den Wert "Q" zuweisen. Ich habe nur immer gedacht, k.A. wieso, dass der Name der Variablen automatisch der Name der Komponente ist. Aber wenn man da genauer drüber nachdenkt ist es ja auch unlogisch, wie Arakis schon sagte, es ist ja nur eine Hilfe. Ich konnte mir nur irgendwie nicht vorstellen das die Komponente die ich erzeuge keinen Namen hat, obwohl ich sie doch mit "Q" anspreche, aber das ist ja nur ein "Zeiger".
Aber danke euch trotzdem! Man lernt nie aus!

Gruß
Andreas

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme