Mi duda seguro que es sencilla, tengo un código en delphi pero no se hacer que algo se ejecute de forma indefinida sin que pase un evento concreto.
Me explico:
Código:
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
StdCtrls, windows;
type
{ TForm1 }
TForm1 = class(TForm)
Image1: TImage;
Timer1: TTimer;
Timer2: TTimer;
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer
);
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure main();
procedure movimiento ();
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.movimiento ();
begin
if Image1.Left >= 280 then
begin
Timer1.Enabled:=true;
timer2.Enabled:=false;
end
else if Image1.Left <= 0 then
begin
Timer1.Enabled:=false;
Timer2.Enabled:=true;
end;
end;
movimiento(); // no compila, quiero que esto se ejecute solo sin que pase ningun evento.
end.
Como puedo hacer un procedimiento o donde tengo que poner la linea movimiento(); para que se ejecute de forma indefinida (como un loop) en el programa, como si fuera el el main de pascal o c ¿O hay un equivalente a "void main" en Delphi/Lazarus?
un saludo y gracias de antemano