хочу с F9 запустить проект, в котором стартует thread, но не пускается, ошибок тоже не выдает. Что делать? Этот же самый код с Delphi 7 работает, а вот на лазарусе нет.
- Код: Выделить всё
unit Unit1;
{$mode delphi}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
StdCtrls;
type
TMyThread = class(TThread)
procedure Execute; override;
end;
type
{ TForm1 }
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
i: Integer;
implementation
{$R *.lfm}
{ TForm1 }
procedure TMyThread.Execute;
begin
{ Threadcode }
try
i := 11;
except
on E: Exception do begin
// Errors...
end;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := IntToStr(i);
i := i + 1;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
Thread1: TMyThread;
begin
Thread1 := TMyThread.Create(False); // стартуем сразу
Thread1.FreeOnTerminate := True;
Thread1.Terminate;
i := 0;
end;
end.
, в этом случае причина найдется обязательно