Über TWinControl an die "Caption"-Bezeichnung?

[Crowbar]

Hallo,

Delphi-Quellcode:

...
Var
 C                                   : TWinControl;
 ActiveContrlClass,ActiveContrlName,
 ActiveContrlCaption                 : String;

begin
  ...
  ActiveContrlClass:=C.ClassName;
  ActiveContrlName :=C.Name;
  ActiveContrlCaption:=C. ... ?
  ...
end;

Ergebnis:
ActiveContrlClass = TButton
ActiveContrlName = ErrorButton
ActiveContrlCaption = Fehler <= so lautet mein Button-Caption

Wie komme ich über TWinControl an die "Caption"-Bezeichnung (z.B. des Buttons)?

Gruß
Crowbar

[mkinzler]

Du musst es zu einem Klassentyp casten, welcher die Eigenschaft hat.

[Crowbar]

@mkinzler:
Was meinst Du mit "casten"?
Hast Du ein Beispiel dafür?

[mkinzler]

ActiveContrlCaption:=(C as TButton).Caption;

[Crowbar]

Danke, so klappt es!

[Crowbar]

Ich bin ich es doch noch einmal...

Zitat von mkinzler:

ActiveContrlCaption:=(C as TButton).Caption;

... aber etwas Schwieriger wird es sein, wenn ich nicht weiß, ob es gerade TButton, TForm usw. ist oder?

Delphi-Quellcode:

...
Var
C,FLastActiveControl                : TWinControl;
ActiveContrlClass,ActiveContrlName,
ActiveContrlCaption                 : String;

begin
  ...
  FLastActiveControl:=Screen.ActiveControl;
  ...
{ Active controls }
  if (FLastActiveControl <> nil) then
   begin
     C:=FLastActiveControl;
     ActiveContrlClass:=C.ClassName;
     ActiveContrlName :=C.Name;
     ActiveContrlCaption:= (C as ???).Caption;
   end;
  ...
end;

Gruß
Crowbar

[mkinzler]

Du könntest es vorher mit

if c is TButton then

[Crowbar]

Zitat von mkinzler:

Du könntest es vorher mit
if c is TButton then

Ja, so klappt es!
Aber wie ist es, wenn ich das Caption von einer TForm über diese Funktion abrufe?
Man kann ja das TForm verschieden benennen, z.B. MainForm: TMainForm oder Form2: TForm2 usw.

Muß ich, um das Caption der jeweiligen TForm zu ermitteln, anders als

Delphi-Quellcode:

ActiveContrlCaption:=(C as TButton).Caption;
z.B. ActiveFormCaption:=(C as TForm).Caption; <= klappt aber nicht?

vorgehen?

Delphi-Quellcode:

...
FLastActiveControl:=Screen.ActiveControl; 
...
i:=0;
C:=FLastActiveControl;
while C <> nil do
 begin
  if (i = 1) then
   begin                                                 { Forminfo    }
     ActiveFormClass  :=C.ClassName;
     ActiveFormName   :=C.Name;
     ActiveFormCaption:= ???
   end
  else
   begin                                                 { Controlinfo }
     ActiveContrlClass:=C.ClassName;
     ActiveContrlName :=C.Name;     
     if ActiveContrlClass = 'TButton' then ActiveContrlCaption:=(C as TButton).Caption    
   end; 
  i:=i+1;
  C:=C.Parent;
 end;  
...

... hiermit bin ich soweit, dass diese Funktion (s. oben) alles ausgibt, was ich möchte.
Nur bei dem ermitteln der Caption von der TFrom (ActiveFormCaption) weiß ich nicht weiter.

Gruß
Crowbar

[Medium]

Laut Delphi OH ist TControl der gemeinsame Vorfahre, der die Property "Caption" einführt. Da nahezu alle VCL-Controls davon abstammen dürften, die eine Caption haben, reicht es einfach darauf zu casten. (<deinObjekt> as TControl).Caption

Da auch alle Nachfahren einer Klasse geerbte Felder und Properties an den selben Offsets haben, kann man problemlos auf den ersten Vorfahren casten, der die gewünschte Eigenschaft einführt. (Bei Methoden evtl. auf Überladungen achten, wie es damit steht weiss ich gerade nicht genau - für den Fall der Caption aber unerheblich.)

Somit wird dein Vorhaben ein 2-Zeiler.

[Crowbar]

@Medium:
Wenn ich
ActiveContrlName :=(C as TControl).Caption benutze, kommt beim Kompilieren die Fehlermeldung:
"Auf protected-Symbol TControl.Caption kann nicht zugegriffen werden."



Gruß
Crowbar