Ao clicar em uma bomba, deve ser aberta a respectiva Tela de comando. Como só há uma única Tela de comando e várias bombas, ao abrir a Tela deve-se informar o nome da bomba para a qual são enviados os comandos.

Bomba

1.No XControl Bomba, crie um script no evento Click da figura que simboliza a bomba.

'Nome completo da bomba
Arg = Bomba.Fonte.PathName
'Abrir TelaComando
Application.DoModal "TelaComando", "Comando", 0, 0, , , Arg, 1 + 2 + 64 + 2048

2.Para criar o script do exercício anterior, inicie digitando "Arg = " para inserir uma variável auxiliar de script, que guarda o nome da bomba clicada.

3.Selecione, utilizando o AppBrowser, o XControl Bomba e, à direita, a propriedade Fonte. Clique em Colar.

4.Termine a linha digitando ".PathName". Esta propriedade retorna o nome completo do XObject TagBomba associado.

Arg = Bomba.Fonte.PathName

5.Selecione, utilizando o AppBrowser, o método DoModal do Viewer e clique em Colar.

Application.DoModal(Screen, Title, Left, Top, Width, Height, Arg, Flags)

6.Altere o parâmetro Screen para o nome da Tela que se deseja abrir, "TelaComando".

7.Altere o parâmetro Title para "Comando". Este é o título da Tela, desde que a propriedade Caption esteja em branco.

8.Altere os parâmetros Left e Top para 0 (zero). A Tela é forçada a abrir no centro em outro parâmetro.

9.Altere os parâmetros Width e Height para um espaço, assim utilizando o tamanho original da Tela.

10.O parâmetro Arg é a informação passada para a Tela que se abre. Este parâmetro já foi definido como o nome completo da bomba.

11.Altere o parâmetro Flags para "1 + 2 + 64 + 2048", que significa Barra de título (1), Botão de fechar (2), Tela pode ser movida (64) e Tela centralizada (2048).