Hallo!
Ich schreibe gerade an einer Komponente. Sie ist vererbt von TLabel.
Nun möchte ich den Namen der Komponente auslesen (z.B. Objekt5).
Auf sachen wie z.B. left und Top habe ich zugriff, nur nicht auf Name.
Beispiele:
funzt:

markieren

Delphi-Quellcode:

Left:=x;
  Top:=y;
  Font.Color:=schrift;
  Color:=hintergrund;
  Caption:=n;

funktioniert nicht:
n:=Name; Diese Meldung bekomme ich:

Zitat:

[Fehler] Day.pas(50): E2003 Undefinierter Bezeichner: 'Name'

Kann mir jemand helfen?

Funktioniert self.Name?

nein, funktioniert leider nicht. Auch schon probiert.

Edit:
Da kommt dan diese meldung:

Zitat:

[Fehler] Day.pas(50): E2003 Undefinierter Bezeichner: 'self'

Wo befindet sich der Code? (Welche Methode?)

Ave,

also wenn ich mir von TLabel eine Kompo ableite (D7)

zusammenfalten · markieren

Delphi-Quellcode:

type
  TMyLabel = class(TLabel)
  public
    constructor Create(AOwner : TComponent); override;
  end;

implementation

constructor TMyLabel.Create(AOwner: TComponent);
begin
  inherited;
  Name := 'TEST';
end;

geht der Zugriff auf Name problemlos.
Wo hast Du es den eingebaut?

Hier ein Teil des Codes (nur mit der betroffenen Prozedur):

zusammenfalten · markieren

Delphi-Quellcode:

unit Day;

interface

uses
  SysUtils, Classes, Controls, StdCtrls, Graphics;

type
  TDay = class(TLabel)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    procedure rename(name2:String);
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Eigene Objekte', [TDay]);
end;

procedure rename(name2:String);
var i:Integer;
    n:String;
begin
  try
    i:=length(Name2);
    n:=self.name; <---- Hier ist die Fehlermeldung
    .
    .
    .
    usw.
end;

end.

Hab das ganze mit dem Komponenten Experten erstellt und dann meinen Senf hinzugefügt

Hallo,

und funktionierts so:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TDay.rename(name2:String); <---- Hier ist die Änderung
var i:Integer;
    n:String;
begin
  try
    i:=length(Name2);
    n:=Name; <---- Hier ist die Fehlermeldung <---- Hier ist die Änderung
    .
    .
    .
    usw.
end;

Ave,

es muss auch

markieren

Code:

procedure [b]TDay.[/b]rename(name2:String);

heissen, sonst deklarierst Du keine Methode der Klasse TDay, sondern einfach eine Prozedur.

Wenn rename eine Methode der klasse wäre, müßte es gehen. Mich wundert aber das er die anderen Eigenschaften so findet. Gibt es vielleicht Variablen mit den Bezeichnungen?

nein, gibt es nicht.
Es soll nacher in einem Projekt aufgerufen werden können.
Kann mir jemand schreiben wie ich das umschreiben müsste, damit es funktioniert, und ich es dennoch im Späteren Projekt ausführen kann?