Impedir Ctrl C

Question

Eu j� tentei o seguinte para impedir que algo seja copiado do formNo OnKeyDown do form coloqueiIf (ssCtrl in Shift) and (Chr(Key) in [�C�, �c�]) then1) Key := 02) KeyBoard.AsText := ��3) SetKeyBoard(N...

Paullsoftware · Answer

tenta mudar[quote:63fe873ee7]If (ssCtrl in Shift) and (Chr(Key) in [�C�, �c�]) then [/quote:63fe873ee7] para[code:1:63fe873ee7]if (Shift = &#91;ssCtrl&93;) and (Key = Ord(�C�)) then [/code:1:63fe873ee7]...

Edilcimar · Answer

Paulo, continuou sem funcionar...

Paullsoftware · Answer

ent�o tente assim:[code:1:880d6969a7]Uses ClipBord[/code:1:880d6969a7][code:1:880d6969a7]procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;  Shift: TShiftState);beginif (Shift = &#91;ssCtrl&93;) and (Key = Ord(�C�)) then begin Clipboard.Clear; end;end;[/code:1:880d6969a7]dessa forma sempre que algu�m precionar essa combina��o dentro do seu texto, vai limpar a area de transferencia :wink:...

Edilcimar · Answer

Apesar de haver esquecido de escrever, o Clear eu tamb�m tentei e n�o funcionou!...

Paullsoftware · Answer

isso � estranho aqui funcionu normal...vamos fazer um teste, inicie uma nova aplica��o coloque nela um Edit, mude a propriedade do KeyPreview do form para TRUE e coloque esse codigo:[code:1:21246284be]procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;   Shift: TShiftState); begin if (Shift = &#91;ssCtrl&93;) and (Key = Ord(�C�)) Or (Shift = &91;ssCtrl&93;) and (Key = Ord(�V�)) then  begin // ClipBoard.AsText := ��; Clipboard.Clear;  end; end;[/code:1:21246284be]seleione o texto do Edit e tente copiar pra ver... aqui t� funcionando normal  :?...

Edilcimar · Answer

Eu j� tinha feito isto e n�o funciona, se eu colocar
f (ssCtrl in Shift) and (Chr(Key) in [�C�, �c�]) then
showmessagew(�funciona�)
a mensagem aparece, por�m em nenhum dos casos eu consigo evitar que o texto seja copiado para o clipboard ou apagar/trocar o conte�do do mesmo, teste usando o Notepad e vai ver que consegue copiar o texto para o mesmo

Paullsoftware · Answer

[quote:192e2df630=�Edilcimar�]Eu j� tinha feito isto e n�o funciona, se eu colocarf (ssCtrl in Shift) and (Chr(Key) in [�C�, �c�]) thenshowmessagew(�funciona�)a mensagem aparece, por�m em nenhum dos casos eu consigo evitar que o texto seja copiado para o clipboard ou apagar/trocar o conte�do do mesmo, teste usando o Notepad e vai ver que consegue copiar o texto para o mesmo[/quote:192e2df630]vc fez o teste que pedi pra fazer copiando e colando meu c�digo em uma nova aplica��o??aqui uso Delphi 7 e funciona perfeitamente......

Edilcimar · Answer

eu uso D7, e fiz o teste com o Notepad, conforme informei, e continua copiando do form para o Notepad...

Marco Salles · Answer

a uses correta e esta [b:1dc97c4058]Clipbrd[/b:1dc97c4058]

penso que ao inves de evitar que copiem , posso pensar em permitem que colem o vazio

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  Clipboard.AsText:=��;
end;

Edilcimar · Answer

Oi Marcos, grato, mas tudo que � combina��o poss�vel do que est� abaixo eu j� tentei e n�o funciona, para mim tanto faz n�o permitir que copiem quanto deixar copiar em branco ou um texto diferente
procedure TForm3.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
Var
Copia : TClipBoard;
begin
Copia := ClipBoard;
Copia.AsText := ��;
If (ssCtrl in Shift) and (Chr(Key) in [�C�, �c�]) then
// If (Shift = [ssCtrl]) and (Chr(Key) in [�C�, �c�]) then
Begin
// showmessage(�funciona�); // esta � a �nica linha que funciona, nenhuma das outras surtem efeito
// key := 0;
// SetClipBoard(Copia);
// ClipBoard.AsText := ��;
//ClipBoard.Clear;
End;
end;

Marco Salles · Answer

amigo edicilmar , mas o codigo abaixo funciona

a uses correta e esta[b:7ba6184178] Clipbrd [/b:7ba6184178] penso que ao inves de evitar que copiem , posso pensar em permitem que colem o vazio C�digo: procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin Clipboard.AsText:=��; end;

[b:7ba6184178]voce esta colocando KeyPreviewn do form para true[/b:7ba6184178] ????

Edilcimar · Answer

Sim o keypreview est� true, inclusive se n�o estivesse o showmessage n�o funcionaria! A �nica diferen�a � que estou fazendo no onkeydown e vc fez no onkeypress, vou tentar no mesmo...

Edilcimar · Answer

tamb�m n�o funcionou no onkeypress...

Marco Salles · Answer

as �coisas� acontecem depos do evento onkeydown...

Edilcimar · Answer

Valeu Marcos, troquei o efeito para o onKeyUp e funcionou!...

F�rum Impedir Ctrl C #318567