Caption nicht vorhanden.

[Die Muhkuh]

Hi,

man könnt es höchstens so machen:

Delphi-Quellcode:

procedure ObjCpt(Obj: TObject; const aCaption: String);
begin
  if Obj is TButton then
    TButton(Obj).Caption := aCaption;

  if Obj is TLabel then
    TLabel(Obj).Caption := aCaption;

  if Obj is TEdit then
    TEdit(Obj).Text := aCaption;
end;

Bringt aber nicht wirklich einen Vorteil. Da kann man genausogut einfach Label1.Caption := schreiben.