Игорь Козлов wrote:
> TMyThread = class(TThread)
> public
> procedure Execute;override;
> procedure Test;
> end;
>
> TForm1 = class(TForm)
> Button1: TButton;
> procedure Button1Click(Sender: TObject);
> private
> { private declarations }
> thr : TMyThread;
> public
> { public declarations }
>
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> procedure TMyThread.Execute;
> begin
> Synchronize(@Test);
> end;
>
> procedure TMyThread.Test;
> begin
> ShowMessage('Test');
> end;
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> thr := TMyThread.Create(false);
> end;
>
>
> If click on Button1, the method Test starts to be caused(many times),
> while the program will not fall.
> It's bag?????
On linux try: uses cthreads.
Thanks!
--
Al
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
