Invalid call typecast - As TMenuItem

[Neftali [Germán.Estévez]]

Empezado por dmguridi

Mi ejemplo, en que version de Delphi lo probaste?

Delphi 6.

Código Delphi [-]
 procedure TForm1.Button3Click(Sender: TObject);
 var
   i:Integer;
 begin
   for i := Form1.ComponentCount - 1 downto 0 do
     if Form1.Components[i].ClassName = 'TLabel' then
       (Form1.Components[i] As TLabel).Caption := (Form1.Components[i] As TLabel).Caption + '-a'
     else if Form1.Components[i].ClassName = 'TMenuItem' then
       (Form1.Components[i] As TMenuItem).Caption := (Form1.Components[i] As TMenuItem).Caption + '-a'
     else if Form1.Components[i].ClassName = 'TTabSheet' then
       (Form1.Components[i] As TTabSheet).Caption := (Form1.Components[i] As TTabSheet).Caption + '-a'
     else if Form1.Components[i].ClassName = 'TButton' then
       (Form1.Components[i] As TButton).Caption := (Form1.Components[i] As TButton).Caption + '-a';
 end;

...y funcionó OK.