Бесконечный цикл с определенным шагом в Delphi7

[BuT@JL]

Сообщение от russian-stalker

Вы их синхронизируете? Попробуйте выставить меньший приоритет

я вот это код в нете нашел и использую

procedure printh(p: pointer); stdcall;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure printh(p: pointer);
begin
TForm1(p).caption := 'Hello from thread';
ExitThread(0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
h1: cardinal;
begin
createthread(nil, 128, @printh, self, 0, h1);
end;

end.

Сообщение от mutabor

Большие картинки, будет дергаться.
Во первых если с имиджем, нужно задать DoubleBuffered для формы, а лучше битмапы на канву формы выводить.

Я не знаю как с помощию битмапа двивение организовать. эт наверно нужно перерисовывать битмап с новыми координатами, а как стереть предыдущий не знаю..

[mutabor]

Попробуйте сперва DoubleBuffered, если не поможет то тогда уже дальше думать.

[Alex Cones]

а как стереть предыдущий не знаю..

А зачем стирать? Рисуйте поверх старого, только следующим методом:
1) В изображение (TBitMap) с именем N рисуем маленькую картинку(которая двигается)
2) Выводим N на экран.
3) Закрашиваем N цветом (любым) Или просто стираем типа Clear, ":=Nil" и пр.
4) Переходим к шагу 1, предварительно изменив X или Y
Плюсы: Не мерцает, не дергается.

[BuT@JL]

DoubleBuffered у меня постоянно во всех проектах стоит он помогает от мерцания

[Alex Cones]

См пример в предыдущем посте.

[russian-stalker]

Рабочий код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TMovingPicture = class(TThread)
    procedure movimage;
  private
    { Private declarations }
    x:integer;
  protected
    procedure Execute; override;
  end;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TMovingPicture.Execute;
var
i:integer;
begin
  { Place thread code here }
  for i:=0 to 100 do
  begin
    sleep(50);
    x:=i;
    Synchronize(movimage);
  end;
end;

procedure Tmovingpicture.movimage;
begin
  form1.Image1.Left:=form1.Image1.Left+1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
mimage:TMovingPicture;
begin
   mimage:=Tmovingpicture.Create(true);
   mimage.FreeOnTerminate:=true;
   mimage.Priority:=tplower;
   mimage.Resume;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   DoubleBuffered:=true;
end;

end.

[BuT@JL]

Спасибо вам большое за советы, все получилось )