Caption nicht vorhanden.

[VT-DA]

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?

Delphi-Quellcode:

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

Mfg

[Zacherl]

Wenn Obj z.B. ein Button ist musst du

TButton(Obj).Caption := Cap; schreiben

[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.

[VT-DA]

Hi,

Ahh. Okay. Danke

Mfg