Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Funciones a un boton (https://www.clubdelphi.com/foros/showthread.php?t=90960)

Johan123987 18-10-2016 15:15:40

Funciones a un boton
 
Hola Delphineros

Soy novato en esto de delphi, pero me agrada la plataforma.

Tengo un proyecto que me ayuden con un problema que tengo al añadirle mas funciones a un timer, por ejemplo este que tengo me detecta si una aplicación esta abierta o no, pero al momento de añadir mas cosas me sale error.
Agradezco su respuesta

Este es el código:

Código:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  if IsAppRunning('NombredelProceso.exe') then
    Edit1.Text:=('Proceso Inicado')
  else
    Edit1.Text:=('Esperando Proceso');
    GroupBox2.Enabled := False
end;


Lo que yo quiero hacer es añadir mas funciones debajo de: Edit1.Text:=('Proceso Inicado')
Como activar el GroupBox2.Enabled := True
Pero me da error!


sigo pendiente.

roman 18-10-2016 15:34:33

Para poner varias sentencias en un bloque, debes encerrarlas entre begin y end:

Código Delphi [-]
procedure TForm1.Timer2Timer(Sender: TObject);
begin
  if IsAppRunning('NombredelProceso.exe') then
  begin
    Edit1.Text:=('Proceso Inicado');
    { otras sentencias }
  end
  else
  begin
    Edit1.Text:=('Esperando Proceso');
    { otras sentencias }
  end;
end;

LineComment Saludos

LIA_GUILLERMO 19-10-2016 19:34:25

Con el poco conocimiento que tengo, hasta donde yo se las sentencias que esten en un bloque deben ir entre Begin y End, excepto si solo hubiera una sola sentencia, no habria necesidad de el Begin y End, tal y como muestra el ejemplo de los expertos como roman. Saludos compañeros.

Johan123987 21-10-2016 03:23:31

Hola muchas gracias a los dos por contestar me ha sido de gran ayuda :)
Y otra cosa Roman puedes responder el mensaje que te enviado por favor
Gracias..


La franja horaria es GMT +2. Ahora son las 06:09:04.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi