PARA QUEM FRAGA DE DELPHI!!!!!!!!!!!

bom seu o travamento da tecla for so no seu projeto, voce pode fazer o seguinte.

Crie uma variavel global travar do tipo boleano
exemplo:

var
Form1: TForm1;
travar : boolean;

depois no evento onclick do primeiro botão coloque
travar := Tue;

depois no evento onclick do segunto botão coloque
travar :=False;

e por fim. vai o evento OnKeyPress do formulário e digite as linhas a baixo, ou copia. :)

key:=upcase(key);
if travar then
if (key=´A´) then
key:=#0;


http://instrutor.cjb.net/

bom seu o travamento da tecla for so no seu projeto, voce pode fazer o seguinte.

Crie uma variavel global travar do tipo boleano
exemplo:

var
Form1: TForm1;
travar : boolean;

depois no evento onclick do primeiro botão coloque
travar := Tue;

depois no evento onclick do segunto botão coloque
travar :=False;

e por fim. vai o evento OnKeyPress do formulário e digite as linhas a baixo, ou copia.

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var
s : string;
i : integer;
begin
s:=´aáàâãAÁÀÂô;
for i:=1 to length(s) do
if key=s[i] then
key:=#0;
end;

depois da linha s:=´aáàâãAÁÀÂô;
coloque
if travar then


então ficará assim:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var
s : string;
i : integer;
begin
s:=´aáàâãAÁÀÂô;
if travar then
for i:=1 to length(s) do
if key=s[i] then
key:=#0;
end;