vms Postado Agosto 17, 2007 Denunciar Share Postado Agosto 17, 2007 ola pessoaltenho duas duvidascomo faço para execultar o evento onclick de um bitbtn usando o enter do teclado?ouseja, usar enter no lugar do click do mouse.é possivel execultar(clicar) um bitbtn atraves de outro bitbtn?valeu pela atençao! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest --Jonas -- Postado Agosto 17, 2007 Denunciar Share Postado Agosto 17, 2007 Um Exemplo bem simples para ver como funcionaunit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type TForm1 = class(TForm) BitBtn1: TBitBtn; BitBtn2: TBitBtn; procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.BitBtn1Click(Sender: TObject); begin Showmessage('Voce clicou o BitBtn1'); BitBtn2.Click; end; procedure TForm1.BitBtn2Click(Sender: TObject); begin Showmessage('Voce clicou o BitBtn2, atraves do BitBtn1'); end; end. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest --Jonas -- Postado Agosto 17, 2007 Denunciar Share Postado Agosto 17, 2007 Neste exemplo voce escreve em um edit e quando da um enter ele executa o bitbtn1 pelo evento OnClick:unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type TForm1 = class(TForm) BitBtn1: TBitBtn; Edit1: TEdit; procedure BitBtn1Click(Sender: TObject); procedure Edit1KeyPress(Sender: TObject; var Key: Char); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.BitBtn1Click(Sender: TObject); begin Showmessage('Voce clicou o BitBtn1'); end; procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key = #13 then BitBtn1.OnClick(sender); end; end. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Micheus Postado Agosto 19, 2007 Denunciar Share Postado Agosto 19, 2007 como faço para execultar o evento onclick de um bitbtn usando o enter do teclado?ouseja, usar enter no lugar do click do mouse.vms, apenas a título de observação, a tecla Padrão, no Windows, responsável pela execução do evento OnClick é a Barra de ESPAÇOS. (Isto também é válido para os CheckBox)No Windows, a tecla ENTER pode ser o padrão para execução do evento OnClick, apenas de um botão que tenha sua propriedade Default=True. Isto ocorre normalmente nas caixas de diálogos onde aparecem OK e Cancel em que o botão OK fica destacado e ao teclar ENTER o mesmo é acionado.De modo similar, quando um botão tem sua propriedade Cancel=True, pressionar a tecla ESC resulta na execução do seu evento OnClick, o que também ocorre em caixas de diálogos como citado.Alterar estes procedimentos (padrão), pode ter efeitos como os que se pode ter ao trocar o TAB pelo ENTER para mover-se entre os campos.Particularmente sou avesso a este tipo de alteração, visto que a padronização (oferecida pelo ambiente Windows) viabiliza a utilização de seus recursos em qualquer aplicativo. Assim, se o usuário sabe "navegar" por uma aplicação, saberá por todas.Abraços Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 vms Postado Agosto 20, 2007 Autor Denunciar Share Postado Agosto 20, 2007 valeu pessoal!! Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
vms
ola pessoal
tenho duas duvidas
como faço para execultar o evento onclick de um bitbtn usando o enter do teclado?
ouseja, usar enter no lugar do click do mouse.
é possivel execultar(clicar) um bitbtn atraves de outro bitbtn?
valeu pela atençao!
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.