unit
 Unit1;

interface


uses

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

// data predavana z eventu

type

  TData = 
record

    value:integer;
  
end
;

// definice eventu

type

  TMyEvent = 
procedure
(Sender:TObject;data:TData) 
of
 
object
;

// definice formulare

type

  TForm1 = 
class
(TForm)
    Button1: TButton;
    
procedure
 Button1Click(Sender: TObject);
  private
    
// obsluha eventu

    
procedure
 OnSomething(Sender:TObject; data:TData);
  public
    
{ Public declarations }

  
end
;

// definice vlakna

type

  TMyThread = 
class
(TThread)
    protected
      
// telo vlakna

      
procedure
 Execute; override;
      
procedure
 NotifySomething;
    public
      OnSomething : TMyEvent;
  
end
;

var

  Form1: TForm1;

implementation


{$R *.dfm}


procedure
 TForm1.Button1Click(Sender: TObject);
var
 
thread
:TMyThread;
begin

  
// vytvorime nove vlakno, true znamena, ze bude uspane

  
thread
 := TMyThread.Create(true);
  
// nastavime event

  
thread
.OnSomething := OnSomething;
  
// po dobehnuti se vlakno uvolni z pameti

  
thread
.FreeOnTerminate := true;
  
// spustime vlakno

  
thread
.Resume;
end
;

// obsluha eventu poslaneho z vlakna

procedure
 TForm1.OnSomething(Sender: TObject; data: TData);
begin

  Caption := 
'Thread dobehl s hodnotou '
 + IntToStr(data.value);
end
;

{ TMyThread }


// vlastni telo

procedure
 TMyThread.Execute;
begin

  
inherited
;
  sleep(
2000
);
  Synchronize(NotifySomething);
end
;

procedure
 TMyThread.NotifySomething;
var
 data:TData;
begin

  
// pokud byl nastaven event, zavola se s odpovidajicimi argumenty

  
if
 assigned(OnSomething) 
then
 
begin

    data.value := random(
100
);
    OnSomething(self, data);
  
end
;
end
;

end
.

Syntax higlighted by Syntax highlighter, available at www.4ITDevelopers.net and www.JakNaWin.com