[delphi-br] Re: Pegar caption do botão
procedure Button1Click(Sender: TObject);
begin
ShowMessage(TButton(Edit1.Caption));
end;
Se você for utilizar o mesmo evento para vários componentes, tipo
edits, buttons, bitbtns... voce pode verificar quem esta chamando o
evento atravez do Sender:
if Sender.ClassType = TButton then
ShowMessage('Foi um botao')
else if Sender.ClassType = TEdit then
ShowMessage('Foi um edit')
E pode acessar as propriedades fazendo um TypeCast:
TEdit(Sender).Text
TLabel(Sender).Caption
Abraços...
Cassiano Roloff
--- Em [EMAIL PROTECTED], Hélton Ribeiro Nunes
<[EMAIL PROTECTED]> escreveu
> 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 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
[delphi-br] RES: Cálculo
Olá! A pergunta pode parecer idiota, mas não me entra na cabeça que: 8,1 - 8,1 = 0 é falso... Ok, nas linguagens eu tinha percebido que isso acontecia, mas sabia que isso era um "problema"(não sei se podemos chamar de problema) da matemática... Se alguém estiver disposto a falar mais alguma coisa (de cunho matemático) a respeito dessa "dízima periódica" ou aonde encontro mais sobre isso... Abraços... Cassiano Roloff... -- < 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
[delphi-br] Criacao de Componente...
Estou criando um componente para exportar dados que tem uma propriedade DataSet... igual ao TDataSource... Consigo ligar o componente a um TTable, e tudo funciona direito. O problema é quando deleto o Ttable... o meu componente continua "Linkado" ao componente excluido e aí já viu né access violation e um monte de problemas Pesquisei no help alguma coisa a respeito de FreeNotification... mas não resolveu o problema... Se alguem puder ajudar... qualquer dica é bem vinda... faz um tempão que não consigo resolver isse "detalhe" Abraços... Cassiano Roloff -- < 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
Re: RES: [delphi-br] Ajuda(urgente)
Oi... Acho que entendi de maneira diferente... você tem varios botões e o usuário clica nos botões para "digitar" a senha? Nesse caso você pode verificar qual dos edits tem o foco usando: if Edit1.Focused then begin //Foco está no edit 1... end else if Edit1.Focused then begin //Foco esta no edit 2... end; Não sei se foi isso que você quis dizer, espero que ajude.. T+ Cassiano Roloff --- Em [EMAIL PROTECTED], "Vinicius da Silva Pinto" <[EMAIL PROTECTED]> escreveu > Não tem lógica isto que vc esta descrevendo, a não ser que vc tenha criado o > segundo edit utilizando Copy / Paste. As vezes o Delphi interpreta como o > mesmo edit, já aconteceu, mais é raro. > Delete os dois edits e crie-os novamente e verifique o TabOrder do Form. > > -Mensagem original- > De: Ramilton Junior [mailto:[EMAIL PROTECTED] > Enviada em: quinta-feira, 11 de novembro de 2004 09:31 > Para: [EMAIL PROTECTED] > Assunto: [delphi-br] Ajuda(urgente) > > > > Ola pessoal... > > Estou prescisando de uma ajuda... eu tenho um formulario onde tem varios > botoes e dois edits.. onde o usuario vai clicar para informar o seu codigo e > sua senha... ja tentei de tudo... mais nao consigo fazer com que o usuario > digite o seu codigo ne um edit e a sua senha no outro edit.. sempre que eu > clico no botao ele sempre digita no primeiro edit e quando eu mudo o foco > para o segundo ele ainda continua escrevendo no primeiro edit como eu faço > para que o usuario utilizando os botoes ele consiga digitar tanto no > primeiro edit como no segundo?? > alguem ja fez alguma coisa parecida assim... > > Atenciosamente, Ramilton.. -- < 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
[delphi-br] Re: Comunicação serial
Olá! Tem um componente chamado TComPort (ou TCommPort) usado pra comunicação serial, o componente é muito bom, e é free... nao lembro se vem com fontes... Usei uma vez pra comunicação com impressoras fiscais... T+ Cassiano Roloff --- Em [EMAIL PROTECTED], Gustavo Führ - RDC <[EMAIL PROTECTED]> escreveu > Olá, > > alguém sabe de funções ou > algum componente (D7) pra > fazer comunicação com a porta serial? > A única coisa que preciso é mandar e > receber alguns comandos em hexa. > > Alguém tem uma luz? > > > Führ -- < 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
[delphi-br] Data/Hora Windows
Olá! Gostaria de corrigir a data/hora do windows atravéz da minha aplicação... Alguém já fez isso? Busco a hora do servidor e verifico com a hora do cliente, mas gostaria de possibilitar a correção da hora na aplicação mesmo, e não ter que abrir o relógio do windows... Abraços... Cassiano -- < 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
[delphi-br] Verificar se programa esta rodando....
Olá! Tenho um programa que fica verificando os dados da serial e envia para o teclado, usado com aqueles scaners de codigo de barra. O que preciso fazer é verificar se ele esta rodando e se nao estiver inicializa-lo, com winexec... Estou tentando com FindWindow mas nao estou conseguindo... tava pensando em procurar nos processos que estao rodando, como faço isso? Se alguem puder ajudar aí! Valeu! Abraços... Cassiano Roloff -- < 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
[delphi-br] Variaveis como parametro
Olá! Quando declaro um parametro como variavel, é feita uma cópia local para a execução da função? ou vai funcionar tipo ponteiros? Se não for feita essa cópia para uma variavel local isso implicaria em um menor uso de memória, correto? tipo: procedure Soma(var A,B: integer); begin ShowMessage(IntToStr(A+B)); end; -- < 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
[delphi-br] Delphi + Porta paralela
Procura por um site "rogercom" tem bastante material a respeito de porta paralela e serial... e tem exemplos de programação em Delphi... Fazer um programa no win 98 vai ser mais facil que em win2k ou winxp... nesses ultimos precisa de uma dll (se nao estou enganado) para ter acesso a paralela... no site explica Abraços... Cassiano Roloff -- < 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
