Форум: "Основная";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];

Вниз

Thread - To ALL HELP!!   Найти похожие ветки 

← →
Rem   (2002-01-21 16:17) [7]

У меня это работает, да и не может не работать.

type
TMicroThread = class(TThread)
protected
procedure UpdateCaption;
procedure Execute; override;
procedure Rab;
end;

TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

var c: integer;

procedure TMicroThread.UpdateCaption;
begin
Form1.Caption := inttostr(c);
end;

procedure TMicroThread.Execute;
begin
Rab;
end;

procedure TMicroThread.Rab;
var
i: integer;
begin
for i:=1 to 10000 do
begin
inc(c);
Synchronize(UpdateCaption);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
TMicroThread.Create(false);
end;

end.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c