Cita:
Empezado por wcbs
ok...gracias tiammat y roman por la rapidez....
es como les comentaba anterior mente, yo tengo un programa que al presionar la tecla enter,
en un archivo que esta en c:\DBA\contar.txt en la primera linea de ese archivo va poniendo por ejemplo 1 cuando presiona una vez ,2 si presiona la segunda vez y se van incrementado los números
pero siempre en esa misma linea...ahora bien lo que quiero es ver como hago en delphi una ventanita
pequeñita que me salga en la esquina de arriba de la pantalla que me muestre ese numero para que los chicos vean la cantidad de veces que presionaron enter, pero que esa ventanita lo automáticamente...
pero como le digo no se como empezar, hacerlo ...
|
Yo sabia que la opción "
Modo de Usuario Invisible" me iba a traer problemas...
Entonces:
Código Delphi
[-]
...
implementation
var
ContadorDeEnter: Integer;
Arch: TextFile;
procedure TForm1.FormCreate(Sender: TObject);
var
s: string;
begin
KeyPreview:= True;
AssignFile(Arch, 'C:\DBA\contar.txt');
Reset(Arch);
while not eof(Arch) do
readln(Arch, s);
CloseFile(Arch);
ContadorDeEnter:= StrToInt(s);
Append(Arch);
StaticText1.AutoSize:= False;
StaticText1.Caption:= s;
StaticText1.BevelKind:= bkTile;
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Inc(ContadorDeEnter);
StaticText1.Caption:= IntToStr(ContadorDeEnter);
Writeln(Arch, StaticText1.Caption);
end;
end;
...
procedure TForm1.FormDestroy(Sender: TObject);
begin
CloseFile(Arch);
end;
Saludos.