retornar o foco para o Showmessage?? Coisa esquisita....
Cada uma que acontece com a gente :lol: :lol: :lol: :lol:
Pois bem , tenho um grid e coloquei um código para evitar que o pressionamento das teclas CTRL e Delete , exclua o item selecionado na Grid
A Mensagem aparece normalmente....
[URL=http://imageshack.us][img:cd01da8fab]http://img124.imageshack.us/img124/3826/imagemshowmessage0vl.jpg[/img:cd01da8fab][/URL]
O que acontece de estranho é que a mensagem aparece , mas não some com o pressionamento da tecka <enter> :?: :?: :?:..
Parece que o foco se perde.. A Tecla <enter> Não faz o efeito desejado :cry: :cry: :cry:
Ai tenho que clicar na mensagem ...
[b:cd01da8fab]Como fazer para devolver o foco para a mensagem
Showmessage [/b:cd01da8fab] :?: :?: :?: :?:
Pois bem , tenho um grid e coloquei um código para evitar que o pressionamento das teclas CTRL e Delete , exclua o item selecionado na Grid
procedure TForm1.DBGrid3KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
Vk_up
:begin
key:=0;
QHorExt.Prior;
end;
vk_Down
:begin
key:=0;
QHorExt.next;
end;
46
:begin
if (Shift = [SsCtrl]) then
begin
PlaySound(´Campainha do Windows XP´,0,snd_Async);
Showmessage(´AVISO : Operação não suportada´);
key:=0;
end;
end;
end;
A Mensagem aparece normalmente....
[URL=http://imageshack.us][img:cd01da8fab]http://img124.imageshack.us/img124/3826/imagemshowmessage0vl.jpg[/img:cd01da8fab][/URL]
O que acontece de estranho é que a mensagem aparece , mas não some com o pressionamento da tecka <enter> :?: :?: :?:..
Parece que o foco se perde.. A Tecla <enter> Não faz o efeito desejado :cry: :cry: :cry:
Ai tenho que clicar na mensagem ...
[b:cd01da8fab]Como fazer para devolver o foco para a mensagem
Showmessage [/b:cd01da8fab] :?: :?: :?: :?:
Marco Salles
Curtidas 0
Respostas
Nildo
27/07/2005
Tenta trocar o ShowMessage por MessageDlg ou até mesmo MessageBox
GOSTEI 0