Presentar numeros en una venta flotante

[wcbs]

hola amigos del foro

aver quien me puede dar una mano, tengo un programa que me genera un numero en una archivo de texto por cada ves que presionan la tecla enter, yo necesito mostrar ese numero en un esquina del monitor, que sea como una ventanita flotante para que el usuario vea cuantas veces a presionado
esa tecla, pero que la venta no haya que darle a ningún botón para que muestre el numero.

pero no tengo ni idea de como empezar, necesito una ayudita por favor ..

Gracias de antemano....

[roman]

Pero, además de esa ventanita, ¿hay lguna parte visible de la aplicación o sólo eso?

// Saludos

[TiammatMX]

Empezado por wcbs

...pero no tengo ni idea de como empezar, necesito una ayudita por favor...

¿Podrías ser un poco más específico? Dar algunos datos de cómo, por qué, para qué, dónde, bajo qué condiciones...

Mientras más explícito, mejores respuestas tendrás.

[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 ...

[ecfisa]

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.

[ecfisa]

O con el mismo resultado y más simple:

Código Delphi [-]
implementation

const
   RTA_ARCH = 'C:\DBA\contar.txt';
var
  ContadorDeEnter: Integer;
  TS: TStrings;

procedure TForm1.FormCreate(Sender: TObject);
var
  s: string;
begin
  KeyPreview:= True;
  TS:= TStringList.Create;
  TS.LoadFromFile(RTA_ARCH);
  ContadorDeEnter:= StrToInt(TS[TS.Count-1]);
  StaticText1.AutoSize:= False;
  StaticText1.Caption:= TS[TS.Count-1];
  StaticText1.BevelKind:= bkTile;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    Inc(ContadorDeEnter);
    StaticText1.Caption:= IntToStr(ContadorDeEnter);
    TS.Add(StaticText1.Caption);
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  TS.SaveToFile(RTA_ARCH);
  TS.Free
end;

Saludos.

[wcbs]

Hola ecfisa
Disculpa la tardanza ya que estuve que salir, acabo de probar las dos forma que me pusiste pero no me trabajan no se que estoy haciendo mal, pero te agrego por acá lo que e estado probando, pero de esta forma me lee el archivo pero debo presionar el botón leer para que me lea el archivo, pero lo que busco es de como hacer que me lea el archivo constantemente sin presionar el botón leer, habrá
alguna forma de hacer que sea una ventanita que se quede permanente en la pantalla que se mantenga leyendo el archivo , aca te pongo lo que e echo...

Código Delphi [-]
 unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Datos: TextFile;
  TS: TStrings;
   Linea: String;
   NumLinea: integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
AssignFile(Datos,'C:\DBA\contar.txt');
   Reset(Datos);
   NumLinea := 0;
   REPEAT

        TS:= TStringList.Create;
        Readln(Datos, Linea);
        Inc(NumLinea);
        UNTIL NumLinea = 1;
        TS.Clear;
        ExtractStrings(['|'], [], PChar(Linea), TS);
        Edit1.Text:= TS.Text;

       CloseFile(Datos);

   end;
    end.

mis conocimientos de programación no son muy amplio y este lo había echo también con un poco de ayuda,

[ecfisa]

Empezado por wcbs

hola amigos del foro

aver quien me puede dar una mano, tengo un programa que me genera un numero en una archivo de texto por cada ves que presionan la tecla enter, yo necesito mostrar ese numero en un esquina del monitor, que sea como una ventanita flotante para que el usuario vea cuantas veces a presionado
esa tecla, pero que la venta no haya que darle a ningún botón para que muestre el numero.

pero no tengo ni idea de como empezar, necesito una ayudita por favor ..

Gracias de antemano....

Hola.

Según te entiendo y si estamos hablando de un form, se podría hacer:

Código Delphi [-]
...
implementation

var
  ContadorDeEnter: Integer = 0;

procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview:= True;
  StaticText1.AutoSize:= False;
  StaticText1.Caption:= '';
  StaticText1.BevelKind:= bkTile;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    Inc(ContadorDeEnter);
    StaticText1.Caption:= IntToStr(ContadorDeEnter);
  end;
end;
...

donde StaticText1 estaría ubicada en una esquina del form.

Pero como te indicaron anteriormente tenes que dar mas información, este código sería inútil en una aplicación de consola por ejemplo...

Saludos.