Salir del programa

[Luli]

Hola, gracias por responder.

Bien, lo que hice para cerrar el programa fue esto:

procedure TForm1.Salir1Click(Sender: TObject);
begin
 
Application.Terminate;
end;

y probé con la otra línea, la de Self.close y funciona igual.

Con lo demás apenas voy a empezar, nuevamente muchas gracias por el tiempo, hasta pronto...

[dec]

Hola,

Piensa que el método "Close" del formulario terminará por llamar a "Application.Terminate", pero, antes disparará el evento "OnClose" del formulario, sea este el principal o no, y además dará pie a la posibilidad de abortar el cierre de la aplicación en el evento "OnCloseQuery" del formulario principal, es decir, algo así sería posible usando el método "Close", pero no "Application.Terminate":

Código Delphi [-]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanCLose := Application.MessageBox('¿De veras quieres salir?',
    'Confirma, por favor', MB_ICONQUESTION or MB_OKCANCEL) = IDOK;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ShowMessage('Se va a cerrar el formulario y la aplicación...');
end;

Es decir, haciendo uso del método "Close" puedes aprovechar los eventos "OnClose" y "OnCloseQuery", si esto te sirve de algo, claro está.

[Luli]

Hola, no habia pensado en eso, muchas gracias, fue una muy buena observación y claro que me es de utilidad... hasta pronto y nuevamente gracias