problemas con el timer

[anubis]

gracias, con el show solo no me cierra despues de abrirse. Sobre los threads tengo que estudiarlos detenidamente porque nose por donde empezar.
Me refiero a que si estoy actualizando una tabla con lineas de codigo, al ejecutar el timer y abrir el form, lo que estaba siendo ejecutado en otras lineas de codigo de delphi para seguir metiendo los datos en la tabla, los datos que faltan no acaban de pasar, y en otros casos me sale un aviso que nose puede actualizar en un dataset cerrado, si anulo el timer .enabled false, todo va como la seda.

gracias de nuevo

[jachguate]

Empezado por anubis

gracias, con el show solo no me cierra despues de abrirse.

Quzás estas haciendo uso de BitBtns... añade la siguiente llamada en el OnClick de aquellos botónes (o en el OnExecute de las acciones) que deban cerrar el formulario:

Código Delphi [-]
  Close;

Empezado por anubis

Sobre los threads tengo que estudiarlos detenidamente porque nose por donde empezar.

No dudo que una aplicación multi-hilo sería mejor para lo que haces, pero tampoco creo que sea la solución a tus problemas actuales.

Empezado por anubis

Me refiero a que si estoy actualizando una tabla con lineas de codigo, al ejecutar el timer y abrir el form, lo que estaba siendo ejecutado en otras lineas de codigo de delphi para seguir metiendo los datos en la tabla, los datos que faltan no acaban de pasar, y en otros casos me sale un aviso que nose puede actualizar en un dataset cerrado, si anulo el timer .enabled false, todo va como la seda.

Seguramente en algún punto estas llamando directa o indirectamente a Application.ProcessMessages. Quita esas llamadas... quizás nunca debiste ponerlas allí.

Como regla general, no introduzco una sola línea de código en mis programas si no he leído lo suficiente sobre lo que hace y sus efectos colaterales. (en el help/en los foros/en internet en general)

Hasta luego.

[anubis]

Gracias por las respuestas.
Comento lo que pasa, cuando la alarma es la misma que la del sistema, lo que hago es crear en tiempo de ejecucion un form, si le pongo como me dices solo show, me abre, si se abre otro, si le doy a parar la alarma (tiene un control mediaplayer y un timer.enabled:=false, me sale error de stackflow.

Alguna sugerencia como puedo hacer esto?

gracias

[[Delphius]]

Empezado por anubis

Gracias por las respuestas.
Comento lo que pasa, cuando la alarma es la misma que la del sistema, lo que hago es crear en tiempo de ejecucion un form, si le pongo como me dices solo show, me abre, si se abre otro, si le doy a parar la alarma (tiene un control mediaplayer y un timer.enabled:=false, me sale error de stackflow.

Alguna sugerencia como puedo hacer esto?

gracias

La sugerencia que te doy es que nos brindes información más concreta.
Por empezar: Mensaje específico del error. Y segundo... no terminamos de comprender como lo estás implementando. ¿Podrías mostrarnos parte del código?

Saludos,

[anubis]

Tienes razon. El codigo es muy simple:

Código Delphi [-]
procedure Tfentrada.Timer1Timer(Sender: TObject);
var
lahora:ttime;
horastr:string;
horastr1:string;
begin
  lahora:=time;
  horastr:=formatdatetime('hh:mm',lahora);
  displayhora:='Hora '+FormatDateTime('hh:mm',Time);
  statusbar1.panels.items[3].text:=displayhora;
  datadespertador.tdespertador.open;
  datadespertador.tdespertador.first;
  while not datadespertador.tdespertador.Eof do
    begin
    horastr1:=formatdatetime('hh:mm',datadespertador.tdespertador.FieldByName('Hora').asdatetime);
      if horastr=horastr1 then
        begin
         alarmahabitacion:=datadespertador.tdespertador.fieldbyname('Habitacion').asinteger;
         lbl2:= Txibutton(fentrada.FindComponent('b'+inttostr(alarmahabitacion)));
         lbl2.glyph:=nil;
         falarma:=tfalarma.create(application);
         falarma.Show;
       // falarma.Destroy;
         datadespertador.tdespertador.Delete;
      end;
      datadespertador.tdespertador.next;
    end;
end;

y el formulario falarm que se abre es este:

Código Delphi [-]
unit alarma;

interface

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

type
  Tfalarma = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    Bevel1: TBevel;
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Timer1Timer(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  falarma: Tfalarma;
   reproduce:boolean;
implementation

uses entrada;
{$R *.dfm}

procedure Tfalarma.FormShow(Sender: TObject);
begin
fentrada.MediaPlayer1.Open;
//fentrada.Timer1.Enabled:=false;
timer1.Enabled:=true;
label2.Caption:=inttostr(fentrada.alarmahabitacion);
end;
procedure Tfalarma.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
close;
end;
procedure Tfalarma.Timer1Timer(Sender: TObject);
begin
fentrada.MediaPlayer1.Play;
end;
procedure Tfalarma.BitBtn1Click(Sender: TObject);
begin
fentrada.MediaPlayer1.stop;
end;

uso un mediaplayer con un boton para parar la alarma.

Se que esta un poco farragoso, para una sola alarma si funciona pero se pierden el resto de alarmas si pongo un showmodal, pero lo que interesa es que se abra la ventanita avisando de la alarma y siga buscando comparando en el archivo para sacar mas ventanitas, con solo show a veces queda tapado el form.

si le pongo para parar me sale el error stack overflow.

gracias por vuestra paciencia