How to know the caption of the component in which an image is inserted?

[ReinaldoSergioPTBR]

How to know the caption of the component in which an image is inserted?

[lucamar]

Please, specify a little better what you mean: something like a TImage inside a TPanel (for example) or like the glyph in a TBitButton?

[RAW]

Parent ... Owner ??? A TImage has no caption ???

[lucamar]

Parent ... Owner ??? A TImage has no caption ???

Should be Parent, if anything. And yes, TImage has a Caption property, as any other descendant of TControl.

AFAIK it's not used for anything, but it has it.

ETA: This code will return the caption of the Parent of any control (including TImage):

Code: Pascal  [Select][+][-]

1. function GetParentCaption(const AControl: TControl): String;
2. begin
3.   if Assigned(AControl) and Assigned(AControl.Parent) then
4.     Result := AControl.Parent.Caption
5.   else
6.     Result := '';
7. end;

And, for completeness sake, this one from the Owner:

Code: Pascal  [Select][+][-]

1. function GetParentCaption(const AComponent: TComponent): String;
2. begin
3.   if Assigned(AComponent)
4.   and AComponent.InheritsFrom(TControl)
5.   and Assigned(TControl(AComponent).Parent) then
6.     Result := TControl(AComponent).Parent.Caption
7.   else
8.     Result := '';
9. end;

[RAW]

..And yes, TImage has a Caption property, as any other descendant of TControl.

You are right, I've never recognized that ... funny ...