Komponente (?) an Funktion übergeben

[TiGü]

Zitat von Eknoes:

Du meintest etwas von Klasse, ich meine aber so ein "Objekt" aus dem Design Teil, in diesem Fall ein Shape.

Es geht alles.

Beispiel:

Delphi-Quellcode:

type
  TForm7 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure MakeItReal(ALabel : TLabel; Cap : String);
  end;

var
  Form7: TForm7;

implementation

{$R *.dfm}

procedure TForm7.Button1Click(Sender: TObject);
begin
  MakeItReal(Label1, 'erste Beschriftung');
end;

procedure TForm7.Button2Click(Sender: TObject);
begin
  MakeItReal(Label2, 'zweite Beschriftung');
end;

procedure TForm7.Button3Click(Sender: TObject);
begin
  MakeItReal(Label3, 'dritte Beschriftung');
end;

procedure TForm7.MakeItReal(ALabel : TLabel; Cap : String);
begin
  ALabel.Caption := Cap;
end;

end.