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
if (Sender as TButton).Caption = 'Inserir' then
begin
Procedimentos de inserção ...
end else
Vitor Redes
- Original Message -
From: Hélton Ribeiro Nunes
To: [EMAIL PROTECTED]
Sent: Wednesday, November 17, 2004 2:06 PM
Subject: [delphi
Pessoal
Preciso, dentro do evento onclick de um botão, utilizar o caption dele.
Quero fazer isso para não ter q programar cada um dos botões q tenho no
formulário, e sim, apenas uma unica vez.
[]´s
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
Para ver as mensagens
3 matches
Mail list logo