Esperar a terminar algo

[Patxi]

Hola, será una tonteria pero yo no sé cómo hacerlo,
si tengo un timer que en su OnTimer hace una serie de cosas y pulso un botón y en su OnClick quiero hacer algo pero solo cuando la procedure del OnTimer haya terminado, si le pongo un while "esta_ejecutandose" do Application.ProcessMessages; siendo esta_ejecutandose una variable que pongo a True al principio del OnTimer y a False al final, para que espere a que termine lo del OnTimer, se queda con lo del ProcessMessages todo y las instrucciones de dentro del OnTimer también se quedan esperado.
Si alguien me indicara algo, se lo agradecería mucho.

[tolomeo]

Amigo mio, si no te he entendido mal, tienes varias formas de hacer lo que preguntas, pero a groso modo vienen a ser lo mismo, te pongo varios ejemplos:

Si quieres que el Timer se pare cuando Termine :

Código Delphi [-]
 
 TForm1.Timer1Timer(Sender: TObject);
 begin
 <>     TTimer(Sender).Enabled := false;
            
       ... Codigo que quieras poner...
 end;
 
 TForm1.ClickButton1(Sender: TObject);
  begin
      if not Timer1.Enabled then
      begin
          ....  Codigo que quieras poner...
      end;
 end;

Si el Timer siempre esta siempre activo pon una variable boolean
y puedes comprobar en el evento del boton y esa variable esta o
no en True, como si fuese un semaforo, tambien puedes poner el
boton inicialmente en desabilitado, y habilitarlo cuando se termine
el codigo dentro del evento OnTimer de la siguiente manera:

Código Delphi [-]
 Button1.Enabled := true;
 

Facil.

[Patxi]

Hola, lo que pregunto es algo diferente, si hago lo que me dices:

TForm1.Timer1Timer(Sender: TObject);
begin
<> TTimer(Sender).Enabled := false;
... (CT) Codigo que quieras poner...
end;

TForm1.ClickButton1(Sender: TObject);
begin
if not Timer1.Enabled then
begin
.... (CB) Codigo que quieras poner ...
end;
end;

si el timer está enabled, el código C1 no se ejecutaría, lo que yo pretendo es esperar a que termine el código CT y entonces se ejecute el CB.

Si lo hago de esta otra forma, pues no funciona ya que el CT también se para:

TForm1.Timer1Timer(Sender: TObject);
begin
Ejecutandose:=True;
... (CT) Codigo que quieras poner...
Ejecutandose:=False;
end;

TForm1.ClickButton1(Sender: TObject);
begin
while Ejecutandose do Application.ProcessMessages;
begin
.... (CB) Codigo que quieras poner ...
end;
end;

Bueno muchas gracias.