Hi,

Ich wollte nun genau das gleiche wie hir machen: http://www.delphipraxis.net/internal...ct.php?t=60350
Aber leider klappt das irgendwie wieder nicht ganz.
Ich möchte das dass Object eine andere Caption kriegt.
Doch irgendwie ist der Befehl nicht vorhanden?
Was kann ich machen oder kennt jemand einen anderen Befehl?

markieren

Delphi-Quellcode:

procedure ObjectCaption(Obj: TWinControl;Cap: String);
begin
Obj.Caption := Cap;
end;

Mfg

Wenn Obj z.B. ein Button ist musst du

TButton(Obj).Caption := Cap; schreiben

Hi,

man könnt es höchstens so machen:

zusammenfalten · markieren

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.

Hi,

Ahh. Okay. Danke

Mfg