Hola wcbs.
Cita:
puedes por favor tu de comprimir me en un archivo rar ese último ejemplo que me pusiste
|
Te lo voy a deber en .RAR por que uso WinZip, pero creo lo podes abir con WinRar.
Cita:
El ejemplo del CounterEnter que me hiciste como yo lo puedo en ves de hacerlo con la tecla enter hacerlo por ejemplo con la tecla ¨A¨ y que el conteo se quede marcado y que cuando presione solo la tecla ¨X¨ el conteo se ponga el cero asta esperar de nuevo contar la cantidad de veces de presionar la tecla ¨A¨
|
Si no te entiendo mal sería:
Código Delphi
[-]
implementation
var
ContadorDeAes: Integer = 0;
...
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
case Upcase(Key) of
'A': begin
Inc(ContadorDeAes);
StaticText1.Caption:= IntToStr(ContadorDeAes);
TS.Add(StaticText1.Caption);
end;
'X': ContadorDeAes:= 0;
end;
end;
...
Saludos.