TTeam.OnJoin

property OnJoin
 Access mode: RW
 Event handler type: TOnJoinTeamEvent
 Event handler declaration: procedure (Player: TPlayer; Team: TTeam);

Description

Event property called when a player tries to change team

Example

 procedure MyOnJoinTeamHandler(Player: TActivePlayer; Team: TTeam);
 begin
   if Team.ID = 2 then
   begin
     Player.Team := 1;
     Player.Tell('Sorry, you can''t join Bravo Team');
   end;
 end;

 // ...

 begin
   // assign OnJoinTeam handler
   Game.Teams[1].OnJoin := @MyOnJoinTeamHandler;

   // ...

   // unassign
   Game.Teams[1].OnJoin := nil;
 end;