fdsilva.desenv
Novato
Registrado: Quarta-Feira, 28 de Novembro de 2012
Mensagens: 68
|
 Enviada: Sex Mar 15, 2019 11:43 am Assunto: erro: invalid class type |
 |
|
Prezados, estou realizando esse código e na hora de atribuir a variavel ao comando, dá o erro "Invalid class typecast"...
Por gentileza, como proceder?
| Código: |
procedure TfrmMain.advsmthBuscaRapidaMenuItemClick(Sender: TObject;
ItemIndex: Integer);
var
tela : string;
begin
with advsmthBuscaRapida.MenuItems do
begin
//tela := Copy(Items[1].Caption, Pos ('<', Items[1].Caption) + 1, Length(Items[1].Caption)-1);
tela := Copy((Sender as TAdvSmoothMegaMenuItem).Caption, Pos ('<', (Sender as TAdvSmoothMegaMenuItem).Caption) + 1, Length((Sender as TAdvSmoothMegaMenuItem).Caption)-1);
end;
end; |
Valeu. |
|
marcieldeg
Colaborador
Registrado: Terça-Feira, 5 de Abril de 2011
Mensagens: 1054
Localização: Vitória - ES
|
| Enviada: Qui Mar 21, 2019 7:18 am Assunto: |
|
|
Pelo erro, o parâmetro Sender não é da classe TAdvSmoothMegaMenuItem.
Para testar, coloque a seguinte linha:
| Código: | | ShowMessage(Sender.ClassName); |
_________________
"Olha a interface da IDE! Será que ela é? Será que ela é? DELPHI!" |
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
