Me ajudem por favor
Sou novo no delphi e queria perguntar sobre os atalhos, queria fazer com que quando eu aperta-se ALT+C um botao ´Cadastrar´ fosse ativado,
se for muito grande mande para o meu E-mail por favor ctk@dct.ufms.br
obrigado... :)
se for muito grande mande para o meu E-mail por favor ctk@dct.ufms.br
obrigado... :)
Japa
Curtidas 0
Respostas
Cabelo
26/06/2003
É simples no evento FormKeyDown coloque a seguinte instrução
procedure TfrmDeskDB.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Shift = [ssCtrl] then
begin
if key = #número ASC da tecla then
begin
botão.click;
end;
end;
procedure TfrmDeskDB.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Shift = [ssCtrl] then
begin
if key = #número ASC da tecla then
begin
botão.click;
end;
end;
GOSTEI 0
Japa
26/06/2003
obrigado amigo, agradeço muito :D
GOSTEI 0
Midas
26/06/2003
Cara não sei se entendi bem ...
mas basta colocar na prop. caption de todo componente seja ele um label ou um botão & antes da palavra que deseja que seja o atalho por exemplo.
botão então &Cadastrar
porem deve verificar se não existe nenhum outro caso no formulario dentro de um container que se encontra o mesmo botão para que ele acione o outro antes do botao
se for isso
mas basta colocar na prop. caption de todo componente seja ele um label ou um botão & antes da palavra que deseja que seja o atalho por exemplo.
botão então &Cadastrar
porem deve verificar se não existe nenhum outro caso no formulario dentro de um container que se encontra o mesmo botão para que ele acione o outro antes do botao
se for isso
GOSTEI 0