🚀 go-pugleaf

bigtommy napisa�(a):
> Hello,
> Once again I cannot manage work with dynamically created components. Hans 
> helped me with creating TServerSocket by
> TServerSocket* ServerSocket = new TServerSocket(NULL);
> but I don't know how to hadle events not directly from the Object Inspector.
> Could you please help or include links to other sites with solution
> Tomek 
> 
> 

You have to create a procedure of the type of the event you want to 
implement. For example OnClick has an event of the type: TNotifyEvent 
that means:
Type TNotifyEvent=procedure(Sender: TObject);

or
    Type TClientConnect procedure(Sender: TObject; Socket: 
TCustomWinSocket);
the last declares a procedural type for the OnClientConnect of 
TServerSocket.

If you know the type of procedure needed for Event you can implement 
such Event:

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject; Socket: 
TCustomWinSocket);
begin

//some code
end;

Now you can assign this procedure to the Eventproperty of TServersocket:

SeverSocket1.OnClientConnect=ServerSocket1ClientConnect;

This could you do in FormCreate event of the Form. After this line the 
event will be called each time the event OnClientConnect fires