Guest - kleberns - Postado Julho 18, 2005 Denunciar Share Postado Julho 18, 2005 Pessoal !Já tentei If (Shift = [ssCtrl]) And (Key = 86) Then Begin Key := 0; End;Mas não funcionar corretamente, tem alguma maneira mais elegante de um componente não aceitar nada alem de digitacao via teclado ??att.Nogueira Link para o comentário Compartilhar em outros sites More sharing options...
0 s3c Postado Julho 18, 2005 Denunciar Share Postado Julho 18, 2005 Evento onKeyPress: if Key = #22 then Key := #0; Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest - kleberns - Postado Julho 19, 2005 Denunciar Share Postado Julho 19, 2005 Legal, funcionou para CTRL+V, mas e para o botao direito do mouse sobre o TEDIT e depois COLAR ??? Como fica ???att.Nogueira Link para o comentário Compartilhar em outros sites More sharing options...
0 s3c Postado Julho 19, 2005 Denunciar Share Postado Julho 19, 2005 Bom, você pode colocar em PopupMenu do TEdit um Popup vazio ou no evento onMouseDown:uses Clipbrd; if Button = mbRight then Clipboard.AsText := ''; Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest - kleberns - Postado Julho 19, 2005 Denunciar Share Postado Julho 19, 2005 Brigadao pelas resposta:pmVazio: TPopupMenu;edt1.popmenu := pmVazio;Este resolveu, obrigado pela dica !att.Nogueira Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest - kleberns -
Pessoal !
Já tentei
If (Shift = [ssCtrl]) And (Key = 86) Then Begin
Key := 0;
End;
Mas não funcionar corretamente, tem alguma maneira mais elegante de um componente não aceitar nada alem de digitacao via teclado ??
att.
Nogueira
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados