Autor
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
En línea
