Variável: Sender

Sender representa o objeto que disparou a execução do Script. Sempre possui o atributo Name preenchido, podendo ser um componente da VCL, o nome de um Timer ou o nome de outro Script. Se for diferente de nil, e o disparo tiver sido realizado a partir de um componente de tela, então a propriedade Screen existirá, servindo para identificar a tela em que está inserido o elemento que disparou o script.

Exemplo de Utilização:

-- acesso a tela que ativou o script, pode ser nil no caso do script ser disparado do depurador ou de um timer.
if Sender then
   print("Nome do Obj Sender " .. Sender.Name)
   local scr = Sender.Screen    -- obtem o objeto associado a tela corrente
   if scr then
      print ("Nome da Tela   :" .. scr.Name)
      print ("Caption da Tela:" .. scr.Caption)
   end
end