Olá!
Ao invéz de usar o Caption poderia ser usado o Name (que é único na tela para os componentes criados pelo IDE do Delphi). Assim só é necessário fazer um Type Cast para TComponent assim: if (TComponent(Sender).Name = 'bbtnInserir') then ... Valeu! Raniere --- Em [EMAIL PROTECTED], "Luciano R. Machado" <[EMAIL PROTECTED]> escreveu > Olá Vitor, > > Só queria lembrar que esse código irá gera uma exceção caso > seja usado em um botão da classe TBitBtn. > > Que tal se fizerem assim: > > if (Sender is TBitBtn) then > begin > if TBitBtn(Sender).Caption = 'Inserir' then > Procedimentos de inserção ... > else ... > end; > > -- > Luciano Rodrigues Machado > Programador - Ribeirão Preto-SP > > Vitor Luiz Redes wrote: > > if (Sender as TButton).Caption = 'Inserir' then > > begin > > Procedimentos de inserção ... > > end else > > > > Vitor Redes > > -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
