Re: [delphi-br] Usar a tecla ESC para sair

2005-01-28 Por tôpico Claudemir - Bol

Vc tem que colocar If key = #27

Ok

- Original Message -
From: Eduardo Silva ® [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Friday, January 28, 2005 11:54 AM
Subject: [delphi-br] Usar a tecla ESC para sair



 Galera tenho um form com 1 Page Control e dentro deste 2 TabSheet.

 Estou usando o código abaixo no evento onKeyDown do form para fechar o
mesmo
 com a tecla ESC, mas não esta funcionando.

 Alguém pode me dar uma mão ?

if Key = 27 then
begin
   Tabela.Cancel;
   Close;
end;

  _  ___  _
 / )|   |( \
/ / | Eduardo de Almeida Silva  | \ \
  _( (_ |  _[EMAIL PROTECTED] _  | _) )_
 (((\ \)|_/ )___( \_|(/ /)))
 ( \_/ / \ \_/ )
  \   /   \   /
   \_/ \_/
   /   / \   \





-- 
 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: [delphi-br] SetFocus

2004-11-25 Por tôpico Claudemir - Bol

É só colocar :
If Form1.ActiveControl = Form1.Edit1 Then
Begin
 procedure 
end;


- Original Message -
From: Erika [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Thursday, November 25, 2004 12:25 PM
Subject: [delphi-br] SetFocus




Oi pessoal.

Eu queria realizar uma procedure somente se o SetFocus estivesse em
uma determinada Edit, pois em cada Edit é uma procedure diferente!

Seria algo do tipo: if(Edit1.SetFocus) then .. ?

Obrigado!

[]´s
Erika





--
 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










-- 
 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